1. Таблица истинности - в прилагаемом файле.
2.
var x,y:real;
begin
writeln('x, y:');
readln(x,y);
writeln((x<0)and(y>0));
end.
Пример:
x, y:
-3 2
True
68.27руб*7=477.89 руб стоит 7 товаров
68.27 руб стоит 1 товар
Sub Zadanie()
n = CInt(InputBox("n ="))
for i = 1 to n
t = i
s = 0
Do While t > 0
s = s + (t mod 10)^3
t = t \ 10
Loop
if i=s then MsgBox i
next
End Sub
Ответ получится такой:100010