var x: array[1..10] of real;
n: integer;
begin
for n:=1 to 10 do begin
x[n]:=power(3,n)-5;
writeln(x[n]);
end;
end.
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
Dim a As Integer
Dim b As Integer
a = InputBox("Введите а")
b = InputBox("Введите b")<span>
If a = b Then MsgBox("1") Else MsgBox("0")</span>
Переведем все числа в степени 8.
Ответ: 3 единицы.
Var n,i:integer; f:longint; s:real;
begin
write('n = ');
readln(n);
f:=1; s:=2;
for i:=2 to n do
begin
f:=f*i;
s:=s+1/f;
end;
writeln('s = ',s);
end.
Пример:
n = 10
s = 2.71828180114638