Спросить у пользователя три числа. Найти их средне арифметическое - Free Pascal
Формулировка задачи:
Спросить у пользователя три числа. Найти их средне арифметическое . Если одно число > второго и третьего, вычислить произведение трех чисел . Если одно число < второго и третьего, найти разницу между вторым и третьим. В остальных случаях найти сумму трех чисел.
Я вот что то начала, но не уверенна что все верно.
Var A, b, c : interger; Begin writeln ( "введите 3 целых числа"); Readln ( a, b, c); If ( a>b),(a>c) then begin ( d:=a*b*c); Writeln (d); end Else if ( a<b) (a<c) then begin d:=b mod a; Writeln (d); end Else if
Решение задачи: «Спросить у пользователя три числа. Найти их средне арифметическое»
textual
Листинг программы
var a, b, c: integer; begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); writeln('Average = ', (a + b + c) / 3); if (a > b) and (a > c) then writeln('a * b * c = ', a * b * c) else if (a < b) and (a < c) then writeln('b - c = ', b - c) else writeln('a + b + c = ', a + b + c); readln end.
Объяснение кода листинга программы
- В начале кода объявляются три переменные типа integer с именами a, b и c.
- Затем пользователю предлагается ввести значения для каждой из переменных.
- После ввода значений, программа вычисляет средне арифметическое переменных a, b и c и выводит его на экран.
- Далее программа проверяет, какое из чисел является наибольшим и соответственно наименьшим.
- Если наибольшее число равно a, то вычисляется произведение a, b и c и выводится на экран.
- Если наибольшее число равно b, то вычисляется разность между b и c и выводится на экран.
- Если наибольшее число равно c, то вычисляется сумма a, b и c и выводится на экран.
- В конце программы происходит чтение символа с помощью функции readln, чтобы программа не закрылась сразу после выполнения.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д