підрахувати суму всіх натуральних чисел, які діляться на 3 і не перевищють деякого числа N.

паскаль, цикл for.

думаю, будет примерно так:

program zad;

var i,r,n:integer;

begin

writeln ('введіть число n');

readln(n);

for i:=i<n and (i mod 3=0) do

begin writeln (r:=...);

end;

readln;

end.

 

не знаю как найти сумму

Решалось примерно следующим образом:

Объявить две переменные для числа n и суммы чисел. А хотя нет. Надо три(ещё управляющая переменная для for)

Ввести число n

Зная, что натуральные числа - это все числа от единицы, создаём цикл for с таким условием: управляющая переменная i = 1, i < n i++(увеличить на 1)

(на паскале будет примерно так:

for i := 1 to (n - 1) do

   begin

      ................

   end;

)

Далее в теле цикла сделать условие: если i делится без остатка, то прибавить это число к переменной для суммы чисел(которая в начале равна 0)

Ну и в конце вывести сумму.

Вот вариант на C++

#include <iostream>
using std::cout;
using std::cin;
using std::endl;

int main()
{
   int n, total = 0;

   cout << "Enter the number: ";
   cin >> n;

   for(int i = 1; i < n; i++)
   {
      if(i % 3 == 0)
      {
         total += i;
      }
   }

   cout << "Sum = " << total << endl;

   cin.get();
   return 0;
}

Вроде и на Паскале получилось:

program test;
var i, n, total:integer;
begin
  write('Enter n: ');
  readln(n);
  total := 0;
  for i := 1 to (n - 1) do
  begin
    if i mod 3 = 0 then
    total := total + i;
  end;
  writeln('sum = ', total);
readln();
end.