Question

Помогите пожалуйста,даю 50 балов.Программа паскаль

Answer 1

var

x,s : integer;

begin

s := 0;

x := 1;

while x <> 0 do

begin

readln(x);

if x mod 10 = 5 then

s := s + x;

end;

writeln(s);

end.

Answer 2

var a,k:integer;

begin

k:=0;

 repeat begin

   readln(a);

   if a mod 10 = 5 then k:=k+a;

   end;

until a=0;

writeln(k);

end.