Написать программу в Pascal

Вывести на экран наибольшее из трех чисел

Question

Информатика

Нинуся

9 июля, 20:44

Написать программу в Pascal

Вывести на экран наибольшее из трех чисел

+1

Ответы (2)

Знаете ответ на вопрос?

Тимофейка · Answer 1

Program p_1;

Uses Crt;

var

n1, n2, n3, max: integer;

begin

write ('Введите 1 число: ') ;

readln (n1) ;

write ('Введите 2 число: ') ;

readln (n2) ;

write ('Введите 3 число: ') ;

readln (n3) ;

max:=n1;

if n1
max:=n2;

if n3>n2 then

max:=n3;

writeln ('Наибольшее число: ', max) ;

readln;

end.

Васеня · Answer 2

Programm pr2;

var a, b, c:real;

begin

read (a, b, c) ;

if (a>b) and (a>c) then writeln (a) else if (b>a) and (b>c) then writeln (b) else writeln (c) ;

end.

Написать программу в PascalВывести на экран наибольшее из трех чисел

Написать программу в Pascal

Вывести на экран наибольшее из трех чисел