Vaakzuzne 3 ноября 2019 в 10:51
Составьте программу, которая находит меньшее из трех введенных чисел a,b,c и выводит его на экран
Pascal ABC.
Составьте программу, которая находит меньшее из трех введенных чисел a,b,c и выводит его на экран
Pascal ABC.
Var
a, b, c:integer;
begin
readln(a, b, c);
if (alt;b) then begin
if (alt;c) then
writeln(a);
end
else
if (blt;c) then
writeln(b)
else
writeln(c);
end.
a, b, c:integer;
begin
readln(a, b, c);
if (alt;b) then begin
if (alt;c) then
writeln(a);
end
else
if (blt;c) then
writeln(b)
else
writeln(c);
end.
Компьютеры и вычисления
147
14
Для комментирования необходимо зарегистрироваться на сайте