Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
сидерический год.
var
n: integer;
begin
readln(n);
if (n mod 10)=(n div 100) then
writeln('палиндром')
else
writeln('не палиндром');
end.
в одном байте восемь бит. следовательно 100/8=12.5 ответ 12.5
var s,r: real;
read(r);
s: =pi*sqr(r);
writeln(s: 0: 4);
Популярные вопросы