Задать вопрос
17 октября, 09:42

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

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)
  1. 17 октября, 12:41
    0
    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; Begin s:=0; k:=0; Read (a) ; while a0 do Begin if a mod 8=0 then Begin ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы