Меню сайту

Пошук

Наше опитування
Ви навчаєтесь: 1 клас 2 клас 3 клас 4 клас 5 клас 6 клас 7 клас 8 клас 9 клас 10 клас 11 клас Студент Вчитель Інша відповідь Результати \| Архів опитувань Всього відповідей: 858

Що нового?

Форма входу

Міні-чат
Щоб додати необхідна авторизація

Автоморфне число

Скласти програму для визначення чи є число автоморфним (наприклад 5 і 25, 6 і 36):
program N2;
var a,n: longint;
begin
writeln ('vvedit chislo');
readln (n);
a:=sqr(n);
while (n<>0) and (n mod 10 = a mod 10) do
begin
n:=n div 10;
a:=a div 10;
end;
if n=0 then
writeln ('chislo avtomorfne')
else
writeln ('chislo ne avtomorfne');
readln
end.

Статистика
Онлайн всього: 1 Гостей: 1 Користувачів: 0

Календар

Архів записів

Друзі сайту

Створити безкоштовний сайт на uCoz

Довідник для учнів та студентів

Автоморфне число