Вопрос по информатике:
Следующая программа должна определить, одинаковые или разные знаки у двух вводимых целых чисел. Определите какое сообщение выведется на экран, если хотя бы одно число из чисел будет равно нулю. Какие исправления нужно ввести в алгоритм, чтобы рассматривалась ситуация равенства нулю хотя бы одного из чисел?
Program znaki;
Var x,y: integer;
Begin writeln(‘введите два числа’);
Readln(x,y);
If x*y<0 then write (‘числа разных знаков’);
Else write(‘числа одинаковых знаков’);
End.
- 25.05.2018 11:52
- Информатика
- remove_red_eye 10687
- thumb_up 44
Ответы и объяснения 1
При наличии 0 в исходной программе программа отобразит, что числа " с одинаковыми знаками"
Нужно сделать еще один одну if, перед той, которая будет следить за этим:
Program znaki;
var x,y: integer;
begin
writeln('введите два числа');
readln(x,y);
if (x0) and (y0) then
if x*y<0 then write ('числа разных знаков')
else write('числа одинаковых знаков')
else write('одно из чисел равно нулю');
end.
- 26.05.2018 12:56
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.