Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
var i, n : integer
writeln ('введите число n=');
writeln ('делители числа: ');
for i: = 1 to n do
if n mod i = 0 then writeln (i);
readln
1) неопределенность знаний n = 64 - 32 = 32;
2) i = log232 = 5 бит - количество информации;
3) количество бит соответствует количеству вопросов.
ответ: 5 вопросов.
Популярные вопросы