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

lydavika755 lydavika755    3   11.09.2019 09:50    0

Ответы
riad170310 riad170310  07.10.2020 07:13
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.
ПОКАЗАТЬ ОТВЕТЫ
Qwerty23459484 Qwerty23459484  07.10.2020 07:13
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<n2 then
max:=n2;
if n3>n2 then
max:=n3;
writeln('Наибольшее число: ',max);
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика