Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1) возраст
2)трудолюбие
3)ум
4)имена
5)хитрость
у них были разные имена, разные дома, и все по разному мыслили
program xxx;
var n, c, d, e, k : integer;
begin
wtite ('введите 3-х значное число n =');
readln (n);
c : = n div 100;
d : = (n div 10) mod 10;
e : = n mod 10;
k: = 100*e + 10*d + c;
if n = k then write ('палиндром') else write('не палиндром')
end.
program; var i: byte; str: string; begin for i: =60 to 70 do begin str: =str+chr(i) ; end; writeln(str); end.
Популярные вопросы