Question

Написать программу для нахождения суммы 1+2+3...50​
Осталось 15 минут!

Answer 1

Ответ:

Delphi

Выделить код

1

2

3

4

5

6

i:=10;

summa:=0;

while i<=50 do begin

 if i mod 3 = 0 then

   summa:=summa+i;

end;

1

2

3

4

5

6

7

8

i:=12;

summa:=0;

while i<=48 do

begin

  summa:=summa+i;

  i:=i+3;

end;

end;