Регистрация
марттт
03.10.2020 20:31
Информатика
Есть ответ 👍

сделать трассировку программы. var a, sum, npos, nneg: integer; begin

sum := 0; npos := 0; nneg := 0; readln(a); while a <> 0 do begin

sum := sum + a;

if (a < 0) then nneg := nneg + 1 else npos := npos + 1; readln(a);

end;

writeln(sum); writeln (npos - nneg)

end.

192
257
Посмотреть ответы 2

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

olka52
olka52
4,6(52 оценок)

2. 1

Объяснение:

УДАЧИ™™™™™™ ¯(°_o)/¯


сделать трассировку программы. var a, sum, npos, nneg: integer; begin sum := 0; npos := 0; nneg := 0
сделать трассировку программы. var a, sum, npos, nneg: integer; begin sum := 0; npos := 0; nneg := 0
торежан1
торежан1
4,6(39 оценок)
I=i * t *ню * n  i =32*240  c * 16000 гц *1≈14,6 мбайт≈15 мбайт ответ 2)

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