тимофею
есть
кого
спросить
тему
для типа integer
program n_1;
var x,y,z: integer;
begin
writeln('введите 3 числа: ');
read(x, y, z);
if y> x then x: =y;
if z> x then x: =z;
writeln('наибольшее число: ',x);
end.
для типа real
program n_1;
var x,y,z: real;
begin
writeln('введите 3 числа: ');
read(x, y, z);
if y> x then x: =y;
if z> x then x: =z;
writeln('наибольшее число: ',x: 0: 5);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Напиши слова , начинающиеся с этих букв, чтобы получилось законченое предложение, если все слова прочитать сверху вниз.
такая
естественная
красота
самая
теплая
: dd что есть, то есть