Question

Var sum,a,num:integer begin sum:= 0; num:=0; readln(a); while a<>do begin sum:=sum+a if (a mod 2=0) and (a mod 5=0) then num:= num+1 readln (a) end; writelh (sum), writelh (num) end.

Answer 1

Var sum,a,num:integer
begin
sum:= 0;
num:=0;
while a<> впиши условие do
begin
readln(a);
sum:=sum+a
if (a mod 2=0) and (a mod 5=0) then inc(num);
end;
writeln(sum);
writeln (num);
end