Найдите произведение трёх чисел вводимых с клавиатуры при условии , что они больше...

Question

Найдите произведение трёх чисел вводимых с клавиатуры при условии , что они больше заданного числа ( найти по программе паскаль )

Comments

А если все они или часть из них меньше заданного числа? И еще: выражение "найти по программе паскаль" - совершенно неграмотное с точки зрения языка. Можно "написать программу на языке Паскаль", "вычислить с помощью программы на языке Паскаль", "найти ошибку в тексте программы на языке Паскаль" и т.п.

Answer 1

Program zadanie;
Var a,b,c,n:real;
Begin
 Writeln('Задайте число');
 Readln(n);
 Writeln('Введите 3 числа, больше заданного');
 Readln(a,b,c);
 If (a>n) and (b>n) and (c>n) Then
 begin
 a:=a*b*c;
 Writeln('Произведение 3-х вводимых чисел=',a);
 end
 Else Writeln('Неверно введены числа');
End.

and-логическое "и"

Comments

Молчит автор вопроса. Но, возможно, имелось в виду, что вводить надо до тех пор, пока все три числа не будут удовлетворять условию?

---

я это и указал в коде

---

Не совсем. "Вводить до тех пор..." подразумевает, что программа не завершается без специальных действий.