ПОЖАЛУЙСТА ПОМОГИТЕЕ! Написать программу, которая определяет сумму всех четных чисел, не...

Question

ПОЖАЛУЙСТА ПОМОГИТЕЕ!
Написать программу, которая определяет сумму всех четных чисел, не кратных 3

Answer 1

Var i,n,s:integer;begins:=0;writeln('Введите кол-во чисел!');readln(n);for i:=1 to n doif i mod 3 <> 0 then s:=s+1;writeln(s);end.

Comments

var i,n,s:integer;
begin
s:=0;
writeln('Введите кол-во чисел!');
readln(n);
for i:=1 to n do
if i mod 3 <> 0 then s:=s+1;
writeln(s);
end.