Головна | Реєстрація | Вхід | RSSСереда, 03.03.2021, 12:16 PM

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

Меню сайту
Пошук
Наше опитування
Ви навчаєтесь:
Всього відповідей: 804
Що нового?
Форма входу
Міні-чат

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

Скласти програму для визначення чи є число автоморфним (наприклад 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
Календар
«  Березень 2021  »
ПнВтСрЧтПтСбНд
1234567
891011121314
15161718192021
22232425262728
293031
Архів записів
Друзі сайту

Guide-for-students © 2021
Створити безкоштовний сайт на uCoz