1) Составить программу для нахождения суммы чисел 1 сотни, которая делится ** 3....

Question

1) Составить программу для нахождения суммы чисел 1 сотни, которая делится на 3. (ПАСКАЛЬ)
2) Составить программу для нахождения суммы чисел от 500 до 700. (ПАСКАЛЬ)

Comments

Я так понимаю, в первом задании нужно вывести все числа от 100 до 199, которые делятся на 3. Я верно понял?

---

Сумма числе 1 СОТНИ

---

Не понимаю вообще, как это делать

---

От этого не легче. Просто напишите интервал поиска, пожалуйста. Или нужна первая сотня чисел, делящихся на 3?

---

только первая сотня, делящаяся на 3.

---

Нужно было отойти. Работаю.

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

//1
Var
 n,i,s:integer;
begin
n:=0;
 for i:=1 to 100 do
  begin
   n:=n+3;
   s:=s+n;
  end;
writeln(s);
end.

//2
Var
 i:integer;
 r:integer;
begin
 for i:=500 to 700 do
 r:=r+i;
 writeln(r);
end.

Comments

Забыл про сумму в первом. Секунду.

---

Получилось, спасибо большое:) Завтра снова информатика, надеюсь, все отлично будет.