Question

Срочно! Даю 50 баллов!!!

Написать программу в Паскале, 8 класс


Дано число, если оно кратко 5, то найти площадь круга с радиусом равным 5, если число четное, то найти площадь квадрата с этим числом

Answer 1

var a: integer;
const r = 5; pi = 3.1415;
begin
writeln('Введите число.');
Readln (a);
if a mod 5 = 0 then
writeln ('Площадь круга равна: ', pi*sqr (r))
else if a mod 2 = 0 then
writeln ('Площадь квадрата равна: ', sqr (a));
end.

Answer 2

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Введите число');
  if n mod 5=0 then Writeln(Pi*n*n)
  else
    if n.IsEven then Writeln(n*n)
end.