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

    question img

Ответы 3

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

      poole
    • 5 лет назад
    • 0
  • 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. {Конец}
    answer img
  • uses Crt; // подключение модуля CrtVar   a,b,c,S:real; // объявление переменных вещественного типаBeginClrScr; // очистка консоли перед новым вводом переменныхWrite('Введите три числа: '); // вывод приглашения к вводуReadLn(a,b,c); // считывание введённых с клавиатуры чисел в переменные a,b и cS:=a+b+c; // запись суммы чисел в переменную Sif S > 10 then Write('Их среднее арифметическое: ',S/3)else if S = 10 then Write('Их произведение: ',a*b*c)     else Write('Я ничего не понимаю');ReadLn // ожидание нажатия пробела (чтобы консоль не закрылась сразу)End.Пример работы программы:Введите три числа: 1 7 10Их среднее арифметическое: 6
    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years