Дано 2 числа. Вычислить квадрат 2-го числа. Если он превышает 300, вычислить и напечатать квадрат первого числа, в противном случае-напечатать второе число- Pascal(Паскаль) - Справочник юного программиста Pascal/Delphi

var
  a1, a2: integer;

begin
  readln(a1, a2);
  if (a2 * a2 > 300) then
    Writeln('Квадрат первого числа: ', a1 * a1)
  else
    Writeln('Второе число: ', a2);

end.

Похожие записи/страницы:

Leave a Comment