подсчитай количество отрицательных целых чисел среди a,b,c
Подсчитай количество отрицательных целых чисел среди a,b,c
Задать свой вопрос
Андрюша Ступов
PASCAL?
1 ответ
Елизавета
Program fofgogjoj;
var
a,b,c,ot,pl:integer;
begin
Writeln('Введите 3 числа');
Readln(a,b,c);
if alt;0 then
ot:=ot+1;
if blt;0 then
ot:=ot+1;
if clt;0 then
ot:=ot+1;
if agt;0 then
pl:=pl+1;
if bgt;0 then
pl:=pl+1;
if cgt;0 then
pl:=pl+1;
Writeln('Кол-во отрицательных чисел:',ot);
Writeln('Кол-во положительных чисел:',pl);
end.
Можно написать и кратче, но я не знаю что вы уже прошли, а что нет
var
a,b,c,ot,pl:integer;
begin
Writeln('Введите 3 числа');
Readln(a,b,c);
if alt;0 then
ot:=ot+1;
if blt;0 then
ot:=ot+1;
if clt;0 then
ot:=ot+1;
if agt;0 then
pl:=pl+1;
if bgt;0 then
pl:=pl+1;
if cgt;0 then
pl:=pl+1;
Writeln('Кол-во отрицательных чисел:',ot);
Writeln('Кол-во положительных чисел:',pl);
end.
Можно написать и кратче, но я не знаю что вы уже прошли, а что нет
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов