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

ОТВЕТЫ

Валери
Oct 24, 2020
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. {Конец}
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. {Конец}
- Вычислить произведение, а не произведение, делённое на три!
329
Смежные вопросы: