Составьте программку ,которая убавляет 1-ое число в 5 раз ,если оно

Составьте программку ,которая убавляет первое число в пять раз ,если оно больше второго.

Задать свой вопрос
2 ответа
Program cnjdknc;
uses crt;
var a,b:real;
begin
readln(a,b);
if agt;b then a:=a/5;
writeln(a);
readln;
end.
Var a,b:real;
begin
writeln('Введите 2 числа');
read(a,b);
if agt;b then 
   begin  
      writeln('1-ое число больше второго');  
      write('a=',a/5:0:2); 
   end
else  writeln('1-ое число не больше второго');
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт