1. Информатика
  2. Напишите прогу, где осуществляется

Напишите прогу, где осуществляется ввод целых чисел,(ввод осуществляется до тех пор, пока не будет введен 0) и подсчет кол-ва положительных и отрицательных чисел

Андрей12385 Андрей12385    1   18.05.2019 15:20    4

Ответы
Azzzzzaaaazzza Azzzzzaaaazzza  30.09.2020 20:39

program qq;
var a,pol,otr:integer;
begin
pol:=0;
otr:=0;
repeat
begin
writeln('Введите число');
read(a);
if a>0 then pol:=pol+1
else otr:=otr+1;
end;
until a=0;
writeln('Положительных чисел - ',pol);
writeln('Отрицательных чисел - ',otr);
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
vika2063 vika2063  18.09.2019 04:30
6. решите систему уравнений: 2^(x+2) (бит) = 8^(y-5) (кбайт) 2^(2x-1) (мбайт) = 16^(x-3) (бит)...
av45 av45  18.09.2019 04:30
Дано четырехзначное натуральное число a. какое число получится, если в нем поменять местами вторую и последнюю цифры? (программа паскаль)...
Kirillsveta0103 Kirillsveta0103  28.05.2020 20:02
8 клас. Практична робота: «Розробка алгоритмів з вкладеними повтореннями та їх реалізація у вигляді програми»Зделать в програме Lazarus. Мова Паскаль...
СыроКок1 СыроКок1  29.05.2020 20:09
Опрацювання та структурування окремих кадрів для отримання цілісного твору-відеофільму А) Підготовка матеріалівБ) РозробкаВ) Монтаж​...
anel19999 anel19999  29.05.2020 20:09
Властивість кнопки що визначає значення властивостей шрифту яким буде виводитись текст на об єктіА) FontБ) TopВ) Color​...
Rtyrtya Rtyrtya  29.05.2020 20:09
Процес зміни однієї послідовності сигналів якою подане повідомлення іншою послідовністю сигналів називаютьА) Кодуванням повідомленьБ) Пошуком повідомленьВ) Декодування...
Smash2302 Smash2302  28.05.2020 20:10
Используя команду «подбор параметра» , определить, при каком значении Х функция Y возвратит указанное значение. Где 2-ка это значения Y Формула в экселе что пишу я, не...
kamislove kamislove  28.05.2020 20:16
Составить программу вычисления функции на паскале на заданных промежутках и с заданным шагом h.x∈[0,π]h=π/8...
KarinaRihter KarinaRihter  29.05.2020 20:17
Какое значение примет целочисленная переменная а после выполнения данного оператора? if not(2 7) then a:=25 div 3 else a:=12 mod 4...
никита3343 никита3343  29.05.2020 20:19
В чем заключается результативность как свойство алгоритма? 1.Исполнитель алгоритма не должен принимать решения, не предусмотренные составителем алгоритма. 2.Алгоритм должен...

Популярные вопросы