Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, k, c, e : integer
begin
k: =0;
for i: =100 to 999 do
c: = i div 100;
e: =i mod 10;
if c = e then k: =k+1
end;
writeln('кол-во палиндромов =', k);
readln
end.
решение на
размер объекта- эскиз
форму реального объекта - чертежа
цвет объекта-рисунка
элементный состав объекта -схемы
отношения между объектами - диаграммы эйлера-венна
стоимость объекта -числа
объект-фотографии
Популярные вопросы