Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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-логическое "и"