Формулы представлены во вложении
program krug;
var r:real;
begin
write('введите радиус: ');
readln(r);
writeln('С=',2*3.14*r);
writeln('S=',3.14*r*r);
readln;
end.
кажись так
1)
цел a, b, c
алг
нач
ввод a,b,c
если mod(a+b,2)=0 то
вывод (a+b)/c
иначе
вывод (a+b)*c
все
кон
2)
цел a,d1,d2
алг
нач
ввод a
если (a>9) и (a<99) то
d1:=div(a,10);
d2:=mod(a,10);
вывод d1*d2
вывод' '
вывод d1+d2
вывод' '
вывод d1-d2
иначе
вывод 'ошибка'
все
кон
2140 гб будет в мб 2140000