Найти сумму от начала до первого кратного 5

Question

Информатика

Егоша

2 декабря, 10:40

Найти сумму от начала до первого кратного 5

+2

Ответы (2)

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

Галатея · Answer 1

Var

a:array[1 ... 10000] of integer;

i, n, sum:integer;

begin

Read (n) ;

For i: = 1 to n do

Read (a[i]) ;

For i: = 1 to n do

if (a[i] mod 5 = 0) then break

else inc (sum, a[i]) ;

Writeln (sum) ;

end.

Кеня · Answer 2

Program abc;

var x, s:integer;

begin

x:=1;

while (x mod 5) 0 do

begin

writeln ('Введите x') ;

readln (x) ;

s:=s+x;

end;

writeln (s) ;

end.