1. В следующем коде программист вывел числа от 10 до 1: let i = 10;
while (i >= 1) {
document.write (i);
}
В коде, однако, была допущена ошибка, которая привела к тому, что цикл выполняется бесконечно. Исправьте ошибку программиста.
2. В следующем коде программист вывел числа от 10 до 1:
let i = 10;
while (i >= 1) {
document.write (i);
i++;
}
В коде, однако, была допущена ошибка, которая привела к тому, что цикл выполняется бесконечно. Исправьте ошибку программиста.
3. В следующем коде программист вывел числа от 10 до 1:
let i = 10;
while (i <= 0) {
document.write (i);
i--;
}
В коде, однако, была допущена ошибка, которая привела к тому, что на экран ничего не вывелось. Исправьте ошибку программиста.
4. В следующем коде программист вывел числа от 10 до 1:
let i = 10;
while (i == 0) {
console.log(i);
i--;
}
В коде, однако, была допущена ошибка, которая привела к тому, что на экран ничего не вывелось. Исправьте ошибку программиста.
5. В следующем коде программист вывел числа от 10 до 1:
let i = 10;
while (i == 10) {
document.write (i);
i--;
}
В коде, однако, была допущена ошибка, которая привела к тому, что цикл вывел только число 10 и закончил свою работу. Исправьте ошибку программиста.
var
i, j, n, len, rem: integer;
a: array[1..200] of byte;
begin
write('Введите число: ');
read(n);
len := 1;
a[1] := 1;
for i := n + 1 to 99 {100} do
begin
for j := 1 to len do
begin
rem := a[j] * i + rem;
a[j] := rem mod 10;
rem := rem div 10;
end;
while rem > 0 do
begin
inc(len);
a[len] := rem mod 10;
rem := rem div 10;
end;
end;
writeln('Произведение чисел из интервала (', n, '; 100): ');
for i := len downto 1 do write(a[i]);
end.
Пример работы программы:
Введите число: 1
Произведение чисел из интервала (1; 100):
1948348720420644788695888257080283249381963823594360049498643927185579338215778728274424636079639781709574621897447185108592230400000000000000000000
const
AOper: array [0..3] of string = ('+', '-', '*', '/');
var
a, b, Oper: Integer;
r: Real;
begin
Randomize; // инициализация датчика случайных чисел
a := Random (1001);
b := Random (1001);
Oper := Random (4);
case Oper of
0: r := a + b;
1: r := a - b;
2: r := a * b;
3:if b <> 0 then begin
r := a / b;
end else begin
WriteLn ('Произошла ошибка при делении на ноль');
Exit;
end
else r := -1;
end;
WriteLn (a);
WriteLn (b);
WriteLn (Aoper [Oper]);
if (r >= 0) and (r - Trunc (r) = 0) then begin // если в результате получилось положительное целое число
WriteLn ('yes');
WriteLn (r :6 :0);
end else
WriteLn (' no');
ReadLn;
end.
Объяснение:
r - Trunc (r) // это выделение дробной части числа