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

268

350

Посмотреть ответы 3

Ответы на вопрос:

Матвей2048602

Информатика

4,8(15 оценок)

uses crt; vara, b , c: real; beginreadln (a, b, c); if (a> b) and (a> c) then writeln (a, ' max'); if (b> a) and (b> c) then writeln (b, ' max'); if (c> a) and (c> b) then writeln (c, ' max'); if (c=a) and (c=b) then writeln ('vse chisla ravni'); readkey; end.

mashacolobowa2

Информатика

4,6(51 оценок)

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: =1else a: =0; if (a=1) and (x> z) then write('x-bolwe'); if (a=0) and (x< z) and (z> y) then a: =3; if (a=0) and (y> z)then write('y-bolwe'); if (a=3) thenwrite('z-bolwe'); read; end.

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