Вопрос по информатике:
Задача:
Если введённое число положительное, то найти его квадрат.
Если отрицательное, то найти его модуль. Если равно нулю, то вывести об этом сообщение.
Задача из Pascal, помогите плз.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.02.2016 05:47
- Информатика
- remove_red_eye 10801
- thumb_up 46
Ответы и объяснения 1
Begin
Write('Введите целое число: ');ReadLn(A);
if A > 0 then WriteLn('Квадрат числа: ',A*A)
else if A < 0 then WriteLn('Модуль числа: ',Abs(A))
else WriteLn('Число равно нулю');
End.
- 21.02.2016 19:23
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.