Помогите найти ошибку (Информатика, Паскаль).

var s, k, a:integer;

Begin

s:=0;

k:=0;

Read (a) ;

while a0 do

Begin

if a mod 8=0 then

Begin

s:=s+a;

k:=k+1;

end;

Readln (a) ;

end;

var y:real;

begin

y: = s/k;

Read (s) ;

if s>0 then

Writeln (y)

else

Writeln ('NO')

end;

end.

Question

Информатика

Настасьюшка

28 июля, 14:49

Помогите найти ошибку (Информатика, Паскаль).

var s, k, a:integer;

Begin

s:=0;

k:=0;

Read (a) ;

while a0 do

Begin

if a mod 8=0 then

Begin

s:=s+a;

k:=k+1;

end;

Readln (a) ;

end;

var y:real;

begin

y: = s/k;

Read (s) ;

if s>0 then

Writeln (y)

else

Writeln ('NO')

end;

end.

+5

Ответы (1)

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

Димитрий · Answer 1

Var s, k, a:integer;

Begin

s:=0;

k:=0;

Readln (a) ;

while a0 do

Begin

if a mod 8=0 then

Begin

s:=s+a;

k:=k+1;

end;

Readln (a) ;

end;

if k>0 then Writeln (s/k)

else Writeln ('NO')

end.

Пример:

43

61

16

95

24

0

20

Помогите найти ошибку (Информатика, Паскаль).var s, k, a:integer;Begins:=0;k:=0;Read (a) ;while a0 doBeginif a mod 8=0 thenBegins:=s+a;k:=k+1;end;Readln (a) ;end;var y:real;beginy: = s/k;Read (s) ;if s>0 thenWriteln (y)elseWriteln ('NO')end;end.