Вероника
4 год назад
Составить программу для определения минимума для двух значений на языке pascal
ОТВЕТЫ
Sergej
Oct 24, 2020
var
a,b :integer;
Begin
Read(a,b);Write('Меньшее -> ');
if (a < b) then Writeln(a) else writeln(b);
end.
a,b :integer;
Begin
Read(a,b);Write('Меньшее -> ');
if (a < b) then Writeln(a) else writeln(b);
end.
582
Смежные вопросы: