profile
Опубликовано 5 лет назад по предмету Информатика от anprinechka19

СРОООЧНОО... ПОМОГИТЕ...

Составить программу, в которой осуществляется ввод целых чисел, (пока не будет введен ноль) и подсчет количества введенных положительных и отрицательных чисел через оператор while
Очень прошу не соображаю в этой теме прошу помочь хороших людей))

  1. Ответ
    Ответ дан iolandavalerypad353

    begin

     var n: integer;

     var (CountP, CountN) := (0, 0);

     while True do

     begin

       Read(n);

       if n > 0 then CountP += 1

       else if n < 0 then CountN += 1

       else break

     end;

     Write('Положительных: ', CountP,

     NewLine, 'Отрицательных: ', CountN)

    end.

Самые новые вопросы