Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
остаток от деления на 3
var
n: integer;
begin
readln(n);
if (n mod 10)=(n div 100) then
writeln('палиндром')
else
writeln('не палиндром');
end.
var n, i, k, a: integer;
begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.
Популярные вопросы