- 01.01.2015 16:06
- Информатика
- remove_red_eye 19737
- thumb_up 48
Ответы и объяснения 1
Var x,y: integer;
begin
readln (x,y);
if (x>0) and (y>0) then writeln (1);
if (x0) then writeln (2);
if (x<0) and (y<0) then writeln (3);
if (x>0) and (y<0) then writeln (4);
if (x=0) and (y=0) then writeln ('1 2 3 4');
if (x=0) and (y>0) then writeln ('1 2');
if (x=0) and (y<0) then writeln ('3 4');
if (x>0) and (y=0) then writeln ('1 4');
if (x<0) and (y=0) then writeln ('2 3');
end.
- 02.01.2015 16:36
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.