Деловая бумага
подтверждает факт или письмо
на нём есть печать
он завершён подписью
Program programm;
var A,B: integer;
begin
writeln('Введите число A: ');
readln(A);
writeln('Введите число B: ');
readln(B);
if (A > 1) and (B < -3) then
writeln('Неравенство ВЫПОЛНЕНО!')
else
writeln('Неравенствено НЕ выполненно!');
end.
Информацию можно потерять к примеру забыть или записать на листок а потом выкинуть листок удалить информацию с копютера
Sub abc()
Dim i As Integer, aMax As Integer, aMin As Integer, n As Integer
n = 15
ReDim a(1 To n) As Integer
For i = 1 To n
a(i) = InputBox("Введи A[" & Str(i) & " ] как целое")
Next i
aMax = a(1)
aMin = a(1)
For i = 2 To n
If a(i) > aMax Then aMax = a(i)
If a(i) < aMin Then aMin = a(i)
Next i
MsgBox "Сумма max+min =" & Str(aMax + aMin) & _
" их разность =" & Str(aMax - aMin)
End Sub
B := a * a; // a^2
c := b * b; // a^4
d := c * c; // a^8
----------------------
e := c * b; // a^10