Репрезентации а лишнее записование
Ответ:
var
A: array [1..10] of integer;
i : integer;
temp : integer;
begin
Randomize;
for i := 1 to 10 do
begin
A[i] := random(30);
Write(A[i], ' ');
end;
Writeln;
i := 1;
while i < 10 do
begin
temp := A[i];
A[i] := A[i + 1];
A[i + 1] := temp;
inc(i, 2);
end;
Writeln('Новый массив: ');
for i := 1 to 10 do Write(A[i], ' ');
end.
Объяснение:
<span>НЕ ((число <=40) и НЕ (число нечетное))
</span>1) НЕ ((37 <=40) и НЕ (37 нечетное)) ⇒ НЕ (Истина и НЕ Истина) ⇒ НЕ Ложь ⇒ Истина
2) НЕ ((40 <=40) и НЕ (40 нечетное)) ⇒ НЕ (Истина и НЕ Ложь) ⇒ НЕ Истина ⇒ Ложь
3) НЕ ((51 <=40) и НЕ (51 нечетное)) ⇒ НЕ (Ложь и НЕ Истина) ⇒ НЕ Ложь ⇒ Истина
4) <span>НЕ ((62 <=40) и НЕ (62 нечетное)) </span>⇒ НЕ (Ложь и НЕ Ложь) ⇒ НЕ Ложь ⇒ Истина
Ответ: 2) 40
Program n1;
var n,i: integer;
a,y: real;
begin
readln(a,n);
y:=1;
i:=1;
while(i<=n) do
begin
y:=y*a;
i:=i+1;
end;
write(y);
end.
<span>Linux конечно же )) Надо расширять свой кругозор )</span>