помогите составить программу с оператором while вводятся 5 чисел.найти,сколько посреди их
Помогите составить программку с оператором while вводятся 5 чисел.найти,сколько посреди их положительных(включая 0) и сколько отрицательных.(числа вводятся в одну переменную в цикле).
Задать свой вопрос1 ответ
Ligeris Marina
Var a,b,c,d:integer;beginc:=0; //счетчик положительных чиселd:=0; //счетчик отрицательных чиселa:=0; // счетчик цикла, чтобы после ввода 5 чисел выйти из негоwriteln('введите 5 чисел');while alt;gt;5 do beginreadln(b);if bgt;=0 then c:=c+1else d:=d+1;a:=a+1;end;writeln('положительных чисел ',c);writeln('отрицательных чисел ', d);end.
Ekaterina Jasko
выдал ошибку
Херных
Гена
Program lab_3;var a,b,c,d:integer;beginc:=0; d:=0; a:=0;writeln('введите 5 чисел');while a<>5 do beginreadln(b);if b>=0 then c:=c+1else d:=d+1;a:=a+1;end;writeln('положительных чисел ',c);writeln('отрицательных чисел ', d);end.
Золоотенков
Данил
а что используете? PascalABC ?
Вячеслав Ажаликов
турбо паскаль 5.5 онлайн
Oleg Gurchenko
код рабочий, просто отличие синтаксиса есть, пробуй read вместе readln, write вместо writeln
Данька
Error: can't find symbol ("read", line 10)
Артём Загордиев
так же выдает ошибку
Лариса Распашнова
а вы в какую версию паскаля используете?
Славян Обробин
запустила в паскальabc все работает
Кирилл Лошутов
спс огромное
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов