Напишите программу, которая будет подсчитывать количество - вопрос №1205305 от Lola12131415 09.04.2023 05:37

Question

Информатика: Напишите программу, которая будет подсчитывать количество отрицательных и положительных введённых чисел с клавиатуры, подсчёт вести до тех пор пока не будет введён 0

Lola12131415 · Answer

Var a, k, n:integer;BeginWrite ( Вводите числа ) ;K:=0;n:=0;Read(a) ;While a 0 do beginIf a 0 then k:=k+1;If a 0 then n:=n+1;Read(a) ;End;Writeln( Положительных , k) ;Writeln( Отрицательных , n) ;End....