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

Question

Информатика

Ксенофонт

20 июля, 14:02

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

+2

Ответы (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.