Предмет: Информатика, автор: KarinaRainbow

составьте алгоритм нахождения наименьшего из трех значений в паскаль

Ответы

Автор ответа: ВладимирВольфович
0

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.

Похожие вопросы
Предмет: Математика, автор: saveliyshewyakov
Предмет: Литература, автор: oursul6