<span>стройство для запоминания данных. В зависимости от характера использования различают внутреннюю или внешнюю память.</span>
Программа содержит три команды:
01(3)
01(1)
11(3)
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-логическое "и"
//Pascal
var a, b:integer;
begin
readln(a,b);
if a>0 then writeln(a*b);
if (a<0) and (b<>0) then writeln(a/b)
else if (a<0) and (b=0) then writeln('Делить на 0 нехорошо!');
end.