Необходимо было написать программу, которая позволяет найти наименьшеечисло, большее 500, кратное 17 и вывести его на экран.Программист торопился и написал программу с ошибками. Укажите строки, в которых допущены ошибки.Var x: integer; Begin x:= 500; Repeat ox := х – 1; Until x mod 17 <> 0Writeln (х);End.​

Var x: integer;

Begin

x:= 500;

Repeat o  //здесь непонятный символ o (должно быть: Repeat)

x := х – 1;   //здесь должно быть наоборот: к x надо прибавлять 1, так как надо найти число большее 500 (должно быть: x:= x + 1;)

Until x mod 17 <> 0   //здесь ошибка в том, что цикл repeat остановится когда число, деленное на 17, будет иметь остаток, а надо остановить тогда, когда при делении числа на 17 будет 0, то есть делится на 17 без остатка(должно быть: Until x mod 17 = 0;)

Writeln (х);

End.​

Традиционное решение:
var
  n,d1,d2,d3,d4:integer;
begin
  Write('Введите четырехзначное натуральное число: ');
  Readln(n);
  d1:=n div 1000; d4:=n mod 10;
  d3:=(n mod 100) div 10;
  d2:=(n mod 1000) div 100;
  n:=1000*d1+100*d3+10*d2+d4;
  Writeln('Результат: ',n)
end.

Тестовое решение:
Введите четырехзначное натуральное число: 4567
Результат: 4657

Решение с использованием символьного представления числа:
var
  s:string;
begin
  Write('Введите четырехзначное натуральное число: ');
  Readln(s);
  Writeln('Результат: ',s[1]+s[3]+s[2]+s[4])
end.

1) 1000000
ответ:1
2)44100*60*2*24=127008000 бит = 15876000 байт = 15503 Кб
3) пусть время х. тогда:
1/3*х * 60 + 2/3*х * 90 = 27000
20х + 60х = 27000
8х=2700
х=337 секунд
4)102 + 108 +1016 = 1226 = 10011001010(2)
5)???
6)128*16=2048 пикселей
512/2048 = 1/4 байта/пиксель = 2 бита/пиксель
2^2 = 4
ответ: 4 цвета
7)256 = 2^8 -> 8 бит/пиксель = 1 байт/пиксель
256*512*1=131072 байт = 128 Кб
8)128 Тбайт = 128 * 1024 * 1024 * 1024 * 1024 * 8 бит = 1125899906842624 бит
9)???
10) 1024 = 2^10
10*60*48000*10 = 288000000 бит = 35156 Кбайт
11)  16*32*64*16 = 524288 бит = 64 Кбайт
12) 44 символа * 1 байт/символ = 44 байта
13)??? (ничего не подходит под первый символ)