підрахувати суму всіх натуральних чисел, які діляться на 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.
не знаю как найти сумму
Решалось примерно следующим образом:
----номер машины- 1818