Составьте алгоритм нахождения наименьшего из трех значений в паскаль
Составьте алгоритм нахождения наименьшего из трех значений в паскаль
Гость
Ответ(ы) на вопрос:
Гостьprogram p1;
var
a1, a2, a3, max: integer;
BEGIN
writeln ('Vvedite 3 chisla cherez probel i nazhmite probel');
readln (a1, a2, a3); if a1>=a2 then
max:=a1
else
max:=a2;
if a3>max then
max:=a3; Writeln('Maximalnoe chislo iz nih:', max);
readln
END.
Не нашли ответ?
Похожие вопросы