ПОЖАЛУЙСТА ПОМОГИТЕЕ!
Написать программу, которая определяет сумму всех четных чисел, не кратных 3
Написать программу, которая определяет сумму всех четных чисел, не кратных 3
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
begin
s:=0;
writeln('Введите кол-во чисел!');
readln(n);
for i:=1 to n do
if i mod 3 <> 0 then s:=s+1;
writeln(s);
end.