Подсчитать количество отрицательных чисел a,b,c.
viploloshkinghhgg
2
17.03.2019 06:30
0
Другие вопросы по теме Информатика
АндрейЯсийчук
25.04.2020 09:38
fewralskajaribozers3
25.04.2020 09:52
hanbek81
11.11.2020 10:35
Макушка007
05.12.2020 10:03
Толиk
05.12.2020 10:02
sungatulin22
17.02.2020 09:25
Littlebybigheart1111
08.04.2020 18:23
elizovetadobinda
24.11.2020 15:28
Популярные вопросы
- Фермер засеял свеклой два поля. Площадь первого поля 14 гектаров,...
2 - Проблемы отрасли цветной металлургии ...
3 - Андрей записал все трёхзначные числа, со ставленные только из...
1 - Приведите пример литературные, музыкальные произведения , где...
3 - Is there in the street? 1) a school 2) the school 3) school...
1 - Шкіра у птахів вкрита пір ям і не має...
3 - Самбади ту руру туру руру туру ...
2 - Записати слова, визначити в них орфограми.Мідь, осінь, м ята,...
2 - напищите мне диктан на English как я провёл зиму там придумайте...
2 - 3 примыкателтных словосочетания...
2
program prog;
var a,b,c,i:integer;
begin
Writeln('Введите 3 числа');
Readln(a,b,c);
if a<0 then i:=i+1;
if b<0 then i:=i+1;
if c<0 then i:=i+1;
writeln('Количество отрицательных чисел: ',i);
end.