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

Question

Информатика

Вадиша

15 мая, 10:06

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

+1

Ответы (2)

Знаете ответ на вопрос?

Стелла · Answer 1

Var a, b:real;

begin

writeln ('Введите 2 числа') ;

read (a, b) ;

if a>b then

begin

writeln ('Первое число больше второго') ;

write ('a=', a/5:0:2) ;

end

else writeln ('Первое число не больше второго') ;

end.

Эмиля · Answer 2

Program cnjdknc;

uses crt;

var a, b:real;

begin

readln (a, b) ;

if a>b then a:=a/5;

writeln (a) ;

readln;

end.