Вопрос по информатике:
Составе программу
найдите среднее арифметическое двух целых чисел, если эти числа положительны, и суммы этих чисел-в противном случае
- 26.12.2017 12:41
- Информатика
- remove_red_eye 9057
- thumb_up 10
Ответы и объяснения 1
Var
a,b:real;
Begin
Write('Введите два числа: ');ReadLn(a,b);
if (a > 0)and(b > 0) then Write('Sr = ',(a+b)/2)
else Write('Sum = ',a+b)
End.
- 27.12.2017 08:23
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.