Регистрация
Bayleef
02.03.2020 06:40
Информатика
Есть ответ 👍

Составить программу вычисляющее наибольшее из 3 заданных чисел(паскаль)

271
345
Посмотреть ответы 3

Ответы на вопрос:

lbogdan2
lbogdan2
4,5(48 оценок)

var

  a, b, c, m : integer;

begin

  read (a, b, c);

  m : = a;

  if b > m then m : = b;

  if c > m then m : = c;

  writeln (m);

end.

 

ps так корректнее, потому что в первом ответе не учтено равенство чисел.

Danil200500
Danil200500
4,8(49 оценок)

var

a,b,c: integer;

writeln('a,b,c'); readln(a,b,c);

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

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

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

end;

можно через один if.

 

ЕгорМаксимов
ЕгорМаксимов
4,5(40 оценок)
Информационными моделями являются - графики, таблицы, блок-схемы (формальные информационные модели) и словесные описания (описательные информационные модели)

Популярно: Информатика