var x,a,b,c: integer;
begin
writeln ('vvedit triohznachne chislo');
readln (x);
a:= x div 100;
b:= x div 10 mod 10;
c:= x mod 10;
if (a=c) then writeln ('yes')
else writeln ('no');
readln
end.
Головна | Реєстрація | Вхід | RSS | Четвер, 11.21.2024, 5:20 PM |
Довідник для учнів та студентів | |
Вітаю Вас Гость |
|
Трьохзначне число перевертишvar x,a,b,c: integer; begin writeln ('vvedit triohznachne chislo'); readln (x); a:= x div 100; b:= x div 10 mod 10; c:= x mod 10; if (a=c) then writeln ('yes') else writeln ('no'); readln end. |
|
Guide-for-students © 2024 |
Створити безкоштовний сайт на uCoz |