Выведите на экран все двузначные числа, которые при возведении в квадрат дают палиндром.
10-11 класс
|
var n,i:longint;
function polin(n:longint):boolean;
var i,j:longint;
s:string;
itog:boolean;
begin
itog:=true;
str(n,s);
if length(s)=1 then itog:=false;
for i:=1 to length(s) do begin
j:=length(s)-i+1;
if s[i]<>s[j] then itog:=false; end;
polin:=itog;
end;
BEGIN
n:=99;
writeln('Chisla: ');
for i:=1 to n do
if polin(i*i) then
writeln(i,' (',i*i,')');
end.
Другие вопросы из категории
На вход поступает некое целое число икс(х).Х принадлежит промежутку (-30000;30000)
Если Х четное и делится на 5 то выводится соответствующая надпись.Если нет- надпись не выводится
Помогите, пожалуйста!
Читайте также
выведите их произведение. Если третье и четвёртое числа больше100, то выведите среднее арифметическое всех пяти чисел. Если выполняются одновременно два перечисленных выше условия, то выведите на экран все пять чисел без изменения. Иначе, выведите третье и пятое числа, увеличив их в два раза.
при умножении на 3 - на 4."
полученную сумму.
2. Дан массив В(n). Определите произведение элементов, кратных 3. Выведите на экран исходный массив и найденное произведение.
1)Натуральное число n называется простым если оно делится только на 1 и на само себя.по соглашению 1 не считают простым числом. Проверить является ли n простым числом
2)Найдите и выведите на экран все трехзначные числа кратные 3, сумма цифр которых больше суммы цифр частного от деления их на 3
двузначное число, образованное парой цифр, в которую входит k-я цифра;
Примечание: величины строкового типа не использовать.
p.s объясните само задание, пожалуйста. Решение есть на яндексе.