Помогите, нужно написать блок схему и программу к задаче на языке ТП( Турбопаскаль)
Пожалуйста, с полным обьяснением.
Вложение.
Это одна задача.
Пожалуйста
Пожалуйста, с полным обьяснением.
Вложение.
Это одна задача.
Пожалуйста
More Questions From This User See All
Answers & Comments
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