Var sum,i:integer;
begin
sum:=0;
for i:=100 to 999 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма трехзначных чисел кратных трем равна ',sum);
<span>end.</span>
А как вы представляете себе ответ на ваш вопрос?
<span>посмотрите на фотографии и скажите, что они сделали вчера</span>
1) с
2) b
3) b
4) b
5) b
6)a
7) a
8) a
9) b
10) b
11) e
12) b
13) c
14) b.d.e
Var
x,y:real;
i:integer;
begin
y:=0;
Write('x= ');
Read(x);
for i:=1 to 11 do y:=i+y*x;
Writeln('Y= ',y)
end.
<u>Пример</u>
x=3.6
Y= 700939.22164521