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

Question

Информатика

Алена

24 января, 12:53

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

+3

Ответы (2)

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

Манюха · Answer 1

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.

Нинуня · Answer 2

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.