Предмет: Информатика,
автор: Ashlyfow
Найдите наибольшее из трех данных чисел (paskal abc)
Ответы
Автор ответа:
0
var a,b,c:integer;
begin;
readln(a);
readln(b);
readln(c);
if (a>b) and (a>c) then writeln(a);
if (b>a) and (b>c) then writeln(b);
if (c>a) and (c>b) then writeln(c);
end.
begin;
readln(a);
readln(b);
readln(c);
if (a>b) and (a>c) then writeln(a);
if (b>a) and (b>c) then writeln(b);
if (c>a) and (c>b) then writeln(c);
end.
Похожие вопросы
Предмет: Информатика,
автор: Аноним
Предмет: Алгебра,
автор: Аноним
Предмет: Информатика,
автор: malikaisha904
Предмет: История,
автор: Nadenka1908909