| Головна | Реєстрація | Вхід | RSS | Середа, 03.03.2021, 12:16 PM |
Довідник для учнів та студентів | |
| Вітаю Вас Гость |
|
Автоморфне числоСкласти програму для визначення чи є число автоморфним (наприклад 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. |
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Guide-for-students © 2021 |
| Створити безкоштовний сайт на uCoz |