Головна | Реєстрація | Вхід | RSS | Середа, 03.03.2021, 12:39 PM |
Довідник для учнів та студентів | |
Вітаю Вас Гость |
|
тема 5 пункт 4 №3program t5p4n3; var a,b,n,d,m: integer; begin writeln ('vvedit chislo'); readln (n); m:=n; d:=0; repeat a:=m mod 10; d:=d*10+a; m:=m div 10; until m=0; if d=n then writeln ('tak ',d) else writeln ('ni ',d); readln end. |
|
Guide-for-students © 2021 |
Створити безкоштовний сайт на uCoz |