Регистрация
sobkevichbozhep08t40
23.03.2023 09:43
Информатика
Есть ответ 👍

Информатика 11 класс, буду очень благодарна

286
386
Посмотреть ответы 1

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

chapaev1981
chapaev1981
4,5(85 оценок)
Program n1; var sum,kp,ko,a: integer; begin readln(a); sum: =0; ko: =0; kp: =0; while a< > 0 do begin sum: =sum+a; if a> 0 then kp: =kp+1 else ko: =ko+1; readln(a); end; writeln(sum); writeln(kp-ko); end.

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