Даны целые числа a b.найти минимальное из них и вывести в переменную min

kise1970 kise1970    1   13.07.2019 07:20    0

Ответы
Андрей99951 Андрей99951  18.09.2020 20:50
Var
a,b,min:real;
begin
write('А - ');
readln(a);
write('B - ');
readln(b);
if a<b then min:=a
 else min:=b;
writeln('Min - ',min);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика

Популярные вопросы