Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
11
Объяснение:
потому что на данном рисунке нужно считать не только те вершины которые обозначены но и те какие не обозначены
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.
program m; uses crt; var k,s: real; i: integer; beginclrscr; for i: =1 to 10 dobegink: =i/(i+1); s: =s+k; end; writeln(s: 2: 2); readkey; end.
Популярные вопросы