Вопрос по информатике:
Тут короче *язык программирования PASKAL*
нужно решить задачу
1) Даны два не нулевых числа.Найти сумму разность произведение и частное их квадратов.
Помогите пожалуйста
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 14.08.2018 00:34
- Информатика
- remove_red_eye 19848
- thumb_up 35
Ответы и объяснения 1
Var a, b: real;
begin
Writeln('Введите a и b');
Readln(a, b); if (a = 0) or (b = 0) then
Writeln('Ошибка! Введите числа не равные нулю.')
else
Writeln('Сумма квадратов: ', sqr(a) + sqr(b), '.', ' Разность квадратов: ', sqr(a) - sqr(b), '.', ' Произведение квадратов: ', sqr(a) * sqr(b), '.', ' Часное квадратов: ', sqr(a) / sqr(b), '.');
end.
- 15.08.2018 11:50
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.