Предмет: Информатика,
автор: lera50347
Домашнее задание:
Ввести три числа и найти наибольшее из них.
Пример:
Введите три числа:
4 15 9
Наибольшее число 15
Ответы
Автор ответа:
0
Для типа 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.
Похожие вопросы
Предмет: Математика,
автор: lobodatatyana1411
Предмет: Литература,
автор: qwrfsa
Предмет: Физика,
автор: uvvjck
Предмет: Математика,
автор: mashamindlina
Предмет: Литература,
автор: arevolution