Предмет: Информатика,
автор: lizi4kab1
найдите произведение трёх чисел вводимых с клавиатуры при условии , что они больше заданного числа ( найти по программе паскаль )
Аноним:
А если все они или часть из них меньше заданного числа? И еще: выражение "найти по программе паскаль" - совершенно неграмотное с точки зрения языка. Можно "написать программу на языке Паскаль", "вычислить с помощью программы на языке Паскаль", "найти ошибку в тексте программы на языке Паскаль" и т.п.
Ответы
Автор ответа:
7
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-логическое "и"
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-логическое "и"
Похожие вопросы
Предмет: Қазақ тiлi,
автор: ramazanovazamat1
Предмет: Окружающий мир,
автор: YuliyaNeonova
Предмет: Окружающий мир,
автор: Аноним
Предмет: Математика,
автор: Eyop
Предмет: Биология,
автор: gendygendygup77y7i