Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
1.что можно делать в школе?
бегать, ходить,играть,учить,узнавать. и тд.
2. в школе есть:
книга, библиотека , стены,кабинеты, и тд.
var a: array[1..20] of integer; s,i: integer; begin
s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.
необходимо (но не достаточно).
Популярные вопросы