Программу с ветвлением на языке Паскаль Составьте несколько
Программу с ветвлением на языке Паскаль Составьте несколько
Гость
Ответ(ы) на вопрос:
ГостьProgram BIT3;
var А,В,С,D: real;
begin readln(А,В,С);
if (A>=B) and (A>=C) then D:=A;
if (B>=A) and (B>=C) then D:=B;
if (C>=A) and (C>=B) then D:=C;
writeln(D)
end.
Program BIT2;
var А, В, С, D: real;
begin readln(А, В, С);
if A>B
then if A>C then D:=A else D:=B
else if B>C then D:=B else D:=C;
writeln(D)
end.
Не нашли ответ?
Похожие вопросы