Даны три неравных числа, вывести меньшее из них(программа).

popovArtem1156465156 popovArtem1156465156    3   25.08.2019 10:40    1

Ответы
maksimtihonov34 maksimtihonov34  05.10.2020 18:37
Var
a,m:real;
Begin
Write('a = ');
ReadLn(m);
Write('b = ');
ReadLn(a);
if a<m then m:=a;
Write('c = ');
ReadLn(a);
if a<m then m:=a;
WriteLn('Меньшее из данных чисел: ',m);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика