Напишите программу которая запрашивает ввод у пользователя число до тех пор пока он не введёт отрицательное число
kamilya14957
3
05.10.2019 02:00
5
Другие вопросы по теме Информатика
darinarad4enko1
15.12.2020 19:31
vanyushkachushka79
15.12.2020 19:30
Гриша2148139
15.12.2020 19:30
Aysyiu
27.04.2020 17:56
RomeTo
31.08.2019 05:21
demoplus1
31.08.2019 05:21
Чай24
13.05.2020 11:24
elena0795
13.05.2020 11:24
Популярные вопросы
- Запишите предложения 1.рассеянный человек 2,красив тот человек, 3,отзывчивый...
1 - Розгляньте комікс. про що нам розповів художник? опишіть відчуття, емоції хлопчика...
1 - Представить степень в виде многочлены (7а-3b+5c-2d)^2...
3 - Складіть речення зі сполучеником вчасно скошене жито...
1 - Написать сочинение по слову смелость.(15.3) текст про мальчика-перевозчика автор:...
3 - Запишите предложения 1.я считаю, что воспитанные люди 2,с жадными я не дружу,...
1 - Напішыце ўсе магчымыя пяцiзначныя лічбы,складзеныя з дапамогай трох пяцёрак...
3 - Назовите наименьшее общее кратное всех однозначных нечетных чисел....
1 - Напишите письмо своему другу по переписке.напишите о: где вы живете, ваш распорядок...
3 - 40 найти значение выражения x+4(45-y)+(89-(54-3x)); х,у вводятся с клавиатуры....
2
program z1;
var s:integer;a:double;
begin
s:=0;a:=1;
while a<>0 do begin
readln(a);
if a<0 then s:=s+1
end;
writeln(s);
readln
end.