Регистрация
ngazaryan
10.01.2021 14:45
Информатика
Есть ответ 👍

В program n_18 перед циклом добавьте n:=1;
program n_18;
var n, k1, k2: integer;
begin
k1:=0;
k2:=0;
n:=1;
while n<>0 do
begin
writeln (‘Введите целое число>>’);
read (n);
if n>0 then k1:=k1+1;
if n<0 then k2:=k2+1;
end;
writeln (‘Введено:’);
writeln (‘положительных – ‘, k1);
writeln (‘отрицательных – ‘, k2

156
161
Посмотреть ответы 1

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

nimblefish
nimblefish
4,4(3 оценок)
Шишкин - собственное имя прости больше не могу

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