===== PascalABC.NET =====
begin
var a := ArrRandom(5, -1, 1);
foreach var x in a do
Write(x:3)
end.
Var num, deg: integer;res: real;i: byte;begin write('Число: '); readln(num); deg:=6; res := 1; i := 0; while i < abs(deg) do begin res := res * num; i := i + 1 end; if deg < 0 then res := 1 / res; writeln(res); readlnend.
Используется метод прямого обмена. Наименьшее число сдвигается в "левый край"
'Не ошибается тот, кто ничего не делает, хотя это и есть его основная ошибка.' - 76 символов по 1 байту. Объем равен 1*76 байт
Задание №4. Определить значение переменной S после выполнения следующих операторов:
1) S:=1; I:=1 For I:=2 to 2 do S:=S+1/I; S=1.5
2) S:=0; I:=1 For I:=2 to -5 do S:=S+1/I; S=0
3) S:=1; I:=1 For I:=2 downto 2 do S:=S+1/I; S=1.5
Задание №5. Определить сколько раз будет выполняться тело следующих операторов цикла.
1) K:=0; For i:=1 to K+3 do K:=K+1; Ответ: 3
2) K:=0; For i:=1 to 9 do K:=K+sqr(i); Ответ: 9.
3) K:=0; For i:=9 to 1 do K:=K+1; Ответ: 0
4) K:=0; For i:=1 to 1 do K:=K+1; Ответ: 1