ЯЗЫК ПАСКАЛЬМаксимум и минимум из трёхЗаданы три - вопрос №16265375 от 45757858ЫфыРф 06.02.2020 02:54

Question

Информатика: ЯЗЫК ПАСКАЛЬМаксимум и минимум из трёхЗаданы три числа.Определите какое из них самое большее,а какое самое маленькое.Формат входных данных:Во входных данных записаны три целых числа а, b и с. Все числа не превосходят 10 000 по абсолютной величине. Формат выходных данных В первую строку выведите квадрат самого большого числа. Во вторую строку выведите квадрат самого маленького числа. ​

45757858ЫфыРф · Answer

var a,b,c:integer; begin  writeln( введите а );  readln(a);    writeln( введите b );  readln(b);    writeln( введите c );  readln(c);  if (a b) and (a c) then writeln(a*a) else    if (b c) then writeln(b*b) else writeln(c*c);  if (a b) and (a c) then writeln(a*a) else    if (b c) then writeln(b*b) else writeln(c*c)end....