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

Question

Информатика

Таджбахш

20 августа, 21:11

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

+2

Ответы (1)

Знаете ответ на вопрос?

Фальк · 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.