Найти сумму первых семи чисел кратных 3 в pascal abc
Найти сумму первых семи чисел кратных 3 в pascal abc
Гость
Ответ(ы) на вопрос:
ГостьProgram summa;
uses crt;
var a,b,c,d:integer;
begin
a:=7;
b:=3*a;
c:=0;
for d:=1 to b do
begin
if d mod 3 = 0 then c:=c+d;
end;
writeln('Ответ = ',d);
end.
Не нашли ответ?
Похожие вопросы