program 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.
Головна | Реєстрація | Вхід | RSS | Неділя, 11.24.2024, 9:16 AM |
Довідник для учнів та студентів | |
Вітаю Вас Гость |
|
тема 5 пункт 4 №3 |
|
Guide-for-students © 2024 |
Створити безкоштовний сайт на uCoz |