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

Question

Информатика

Ксенюша

24 июня, 10:51

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

+2

Ответы (2)

Знаете ответ?

Генюля · Answer 1

Program cnjdknc;

uses crt;

var a, b:real;

begin

readln (a, b) ;

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

writeln (a) ;

readln;

end.

Арса · Answer 2

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.