Найти сумму первых семи чисел кратных 3 в pascal abc

Question

Информатика

Таисья

8 марта, 07:36

Найти сумму первых семи чисел кратных 3 в pascal abc

+3

Ответы (1)

Знаете ответ на вопрос?

Ванюха · Answer 1

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.