найдите произведение трёх чисел вводимых с клавиатуры при условии , что они больше заданного числа ( найти по программе паскаль )
Answers & Comments
Igorrock
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.
Answers & Comments
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-логическое "и"