Головна | Реєстрація | Вхід | RSS | П`ятниця, 03.29.2024, 1:14 PM |
Довідник для учнів та студентів | |
Вітаю Вас Гость |
|
тема 5 пункт 4 №16program t5p4n16; var a,b,n,d,k,m: longint; begin writeln ('vvedit chislo'); readln (n); m:=n; k:=1; repeat m:=m div 10; k:=k*10; until m=0; k:=k div 10; writeln (n mod 10, (n mod k) div 10, n div k); readln end. |
|
Guide-for-students © 2024 |
Створити безкоштовний сайт на uCoz |