Кратко и понятно.
```code
var x, a, n, k: integer;
begin
write('Введите x = '); readln(x);
write('Введите начальный множ. n = '); readln(n);
write('Введите конченый множ. k = '); readln(k);
for a := n to k do writeln(x,' * ', a, ' = ', (a * x));
end.
```
Var a,b:longint;beginreadln(a,b);writeln(a+b);writeln(a-b);writeln(a*b);
end.
1 байт = 8 бит
128 бит = 16 байтов
1 Кбайт = 8000 битов
1.5 Кбайт = 1500 байтов
2048 байт = 2,048 Кбайтов
2 мегабайта = 2000 килобайтов
81920 бит = 10,24 килобайт
1.5 мегабайтов = 1,5*10^6 байт
program - имя программы
var ввод переменных
integer целочисленный тип данных
real тип данных с плавающей точкой
begin начало программы
read прочтение переменных
write ввод текста в программе
end конец программы
Ученик берёт 1 носок 1 одного цвета, потом берёт второй носок. Т. к он может оказаться другого цвета, чем 1-ый, нужно взять третий носок, чтобы у него была пара одного цвета.
<span>Ответ: 3 носка</span>