Var sum, a, num:integer begin

sum: = 0; num:=0; readln (a) ;

while ado 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.

Question

Информатика

Кора

31 октября, 18:04

Var sum, a, num:integer begin

sum: = 0; num:=0; readln (a) ;

while ado 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.

+1

Ответы (1)

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

Антонида · 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

Var sum, a, num:integer beginsum: = 0; num:=0; readln (a) ;while ado beginsum:=sum+aif (a mod 2=0) and (a mod 5=0)then num: = num+1readln (a)end;writelh (sum), writelh (num)end.

Var sum, a, num:integer begin

sum: = 0; num:=0; readln (a) ;

while ado 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.