Помогите, нужно написать блок схему и программу к задаче ** языке ТП( Турбопаскаль) ...

Question

Помогите, нужно написать блок схему и программу к задаче на языке ТП( Турбопаскаль)
Пожалуйста, с полным обьяснением.
Вложение.
Это одна задача.
Пожалуйста

---

Answer 1

Uses Crt; // подключение модуля Crt
Var
   a,b,c,S:real; // объявление переменных вещественного типа
Begin
ClrScr; // очистка консоли перед новым вводом переменных
Write('Введите три числа: '); // вывод приглашения к вводу
ReadLn(a,b,c); // считывание введённых с клавиатуры чисел в переменные a,b и c
S:=a+b+c; // запись суммы чисел в переменную S
if S > 10 then Write('Их среднее арифметическое: ',S/3)
else if S = 10 then Write('Их произведение: ',a*b*c)
     else Write('Я ничего не понимаю');
ReadLn // ожидание нажатия пробела (чтобы консоль не закрылась сразу)
End.


Пример работы программы:

Введите три числа: 1 7 10
Их среднее арифметическое: 6

Answer 2

Var a,b,c:real; {Объявление нужных переменных}
begin {Начало программы}
write('Введите 3 числа: '); {Вспомогательный текст}
readln(a,b,c); {Ввод данных}
if((a+b+c) > 10) then writeln('Среднее арифметическое: ',((a+b+c)/3):1:0) {Условие Если сумма > 10}
else if((a+b+c) = 10) then writeln('Произведение: ',(a*b*c):1:0) {Условие Если сумма = 10}
else writeln('Я ничего не понимаю') {Если условия не выполняются}
end. {Конец}

---

Comments

Вычислить произведение, а не произведение, делённое на три!

---

Исправил, извиняюсь. Не заметил это.