Паскаль! Найти сумму натуральный от 2 до 56, кратных 5?

Question

Информатика

Каллиопий

2 января, 09:14

Паскаль! Найти сумму натуральный от 2 до 56, кратных 5?

+5

Ответы (2)

Знаете ответ?

Максентий · Answer 1

Program five_sum;

var c, sum : integer

begin

c : = 2;

sum : = 0;

while c < 56 do begin

if c mod 5 = 0 then

sum : = sum + c;

c : = c + 1

end;

writeln (sum) ;

end.

Адель · Answer 2

Var

a, b, c: integer;

begin

c : = 56;

for a : = 2 to c do

begin if a mod 5 = 0 then b : = b + a; end;

writeln (b) ; end.