Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Pascal. Написать алгоритм нахождения максимума из трех чисел (a,b,c) на языке Паскаль.

Ответ оставил Гость

uses crt;
var a,x,y,z:integer;
begin
Write (x=);
read (x);
Write (y=);
read (y);
Write (z=);
read (z);
if x>y then
a:=1
else a:=0;
if (a=1) and (x>z) then
write(x-bolwe);
if (a=0) and (xy) then
a:=3;
if (a=0) and (y>z)then
write(y-bolwe);
if (a=3) then
write(z-bolwe);
read;
end.

находит большее из 3-х, ты ведь это имела ввиду)