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.

Answer 2

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