Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1 кбайт=1024 байта
1 байт=8 бит
81920/8=10240 байт
10240/1024=10 кбайт
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 a,b,c,sum: integer;
clrscr;
readln(a,b,c);
sum: =a+b+c;
writeln(' ',sum);
readkey;
периметр треугольника равняется сумме длин всех трех его сторон. он вычисляется по формуле p=a+b+c, в которой a, b и c – это стороны фигуры.
Популярные вопросы