Вопрос по информатике:
1)даны 3 числа абс определите кол-во отрицательных.
2)проверить принадлежность числа х интервалам абсд включительно
- 04.01.2016 02:53
- Информатика
- remove_red_eye 18193
- thumb_up 31
Ответы и объяснения 1
1.
var a.b.c,k:integer;
begin
readln(a,b,c);
if a<0 then k:=k+1;
if b<0 then k:=k+1;
if c<0 then k:=k+1;
writeln('koli4estvo=',k);
end.
2.
var a,b,c,d,i,x:integer;
begin
readln(x);
for i:=a to b do
if i=x then writeln('Prinadlejit ot ',a,'do',b,'!');
for i:=c to d do
if i=x then writeln('Prinadlejit ot ',c,'do',d,'!');
end.
- 04.01.2016 23:18
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.