Program u4_1; var x , y : integer ; описываем используемые переменные begin writeln(‘введите 2 числа ‘); на экран выводим поясняющую надпись «введите 2 числа» readln ( x , y ); вводим два целых числа через пробел if x> y then writeln (x) если х больше y, то выводим х else writeln ( y ); иначе выводим y end. 1. измените программу u 4_1 для нахождения большего из трех чисел.

Wilde163 Wilde163    3   18.06.2019 17:01    0

Ответы
Plushkina69 Plushkina69  02.10.2020 04:51
Var x , y , z : integer ;
begin
writeln(‘Введите 3 числа ‘);
readln ( x , y , z );
if x>y then begin
if x>z then writeln (x) else writeln (z) end
else begin
if y>z then writeln (y) else writeln (z) end;
readln;
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика