2.Напишите программу, запрашивающую ввести любое число. Если введено числобольше 100,...

Question

2.Напишите программу, запрашивающую ввести любое число. Если введено числобольше 100, программа выводит сообщение «Ого-го!», иначе – «М-м-м-м»1.Напишите программу вычисляющую площадь круга, по значению его радиуса, введенному с клавиатуры (D=πr^2) .3.Напишите программу вычисления произведения всех четных чисел от 7 до 20 включительно.

Answer 1

Ответ:

Программы представлены на языке Pascal:

1.var x: integer;

begin

readln(x);

if (x>100) then

writeln ('Ого-го!')

else

writeln('М-м-м-м');

end.

2.var D,r:integer;

begin

readln(r);

D:=pi*(r)*(r);

writeln(D);

end.

3.var i,x: integer;

begin

for i:=7 to 20 do

begin

If (i mod 2 = 0) then

x:=x*i;

end;

writeln(x);

end.