С клавиатуры вводится последовательность чисел до первого кратного 5. вычислить: а) сумму...

Question

С клавиатуры вводится последовательность чисел до первого кратного 5. вычислить: а) сумму всех введенных чисел до первого кратного 5 б) сумму всех введенных чисел, включая первое кратное 5ВСЕ ЭТО НАДО НАПИСАТЬ НА ЯЗЫКЕ ПАСКАЛЬ ​

Answer 1

а)

var s,a:integer;

begin

S:=-1;

a:=1;

while (a mod 5<>0) do

begin

     s:=s+a;

     readln(a);  

end;

write(s);

end.

б)

var s,a:integer;

begin

a:=1;

while (a mod 5<>0) do

begin

     readln(a);  

     s:=s+a;

end;

write(s);

end.

Comments

спасибо большое!