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-логическое "и"
Вопрос, конечно, несуразный: много чего можно сделать. Но ближе всего к информатике : прибавит 39 и, полученное число перевести в 16-ричную систему!)
Миг-маг -мак-бак -бук- бек-век
қазақстан республикасы мемлекеттік органдарының ресми электрондық үкіметі негізгі бет жаңалықтар мемлекеттік ә сынып оқушылары арасында өткен қазақ тілі мен әдебиеті мұғалімдері орыс тілі және әдебиеті ағылшын тілі информатика математика