Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var s,r: real;
begin
read(r);
s: =pi*sqr(r);
writeln(s: 0: 4);
end.
а если число
var n,i,p: integer;
s: string;
read(n);
s: =str(n) ; {переводим число в строку}
n: =0;
for i : = 1 to length(s) do
n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}
writeln(n);
p: =1;
for i: = 1 to n do
p: = p*i;
writeln(p);
это просто название месяцев, а вот май, август, октябрь, декабрь в этих месяцах по 31 дню, если в учитесь по босовой , то ответить нужно именно так
Популярные вопросы