Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
var
i,n: integer;
read(n);
for i: =0 to 3 do
writeln (4*n-i);
var a: array[1..100] of integer;
s,i: integer ;
sr: real;
{vvod massiva a}
for i: = 1 to 100 do
sr: =sr+a[i];
sr: = sr/100;
if a[i]> sr then
s: =s+1;
writeln(s);
1 см = 0,01 м
поэтому длину в см делим на 100 и получаем длину в м. и записываете целое число без остатка.
Популярные вопросы