Регистрация
Kristino4kaMiy
18.04.2020 10:05
Информатика
Есть ответ 👍

Найти ошибку (информатика, паскаль). var s,k,a: integer; begin s: =0; k: =0; read(a); while a< > 0 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.

204
476
Посмотреть ответы 2

Ответы на вопрос:

VendyK
VendyK
4,6(76 оценок)
Var s,k,a: integer; begin s: =0; k: =0; readln(a); while a< > 0 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
kkhristinka1
kkhristinka1
4,8(45 оценок)
Влюбой день а) б) в) г) д)

Популярно: Информатика