var a:array[1..100] of integer;
s,i: integer;
begin
for i:=1 to 10 do begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 10 do begin
if a[i] mod 3 = 0 then begin
s:=s+a[i];
end; end;
writeln('summa chisel kratnx 3 = ', s);
readln;
end.
Var i,n,l: integer;beginfor i:=108 to 999 do beginif (i mod 9 =0)then writeln(i+'') end;end.
Это классическая формула сложных процентов
Sn = S0*(1 + 0.05)^n
Ответ:
В разделе с фигурами выбираешь круг, выделяешь и нажми на Жирный шрифт
Объяснение: