Получим 45 трехзначных чисел
CLS
<span>
N = 1</span><span>
FOR i = 1 TO 9</span><span>
FOR j = 0 TO 9</span><span>
FOR k = 0 TO 9</span><span>
IF i + k = j THEN</span><span>
PRINT N; i * 100 + j * 10 + k</span><span> N = N + 1</span><span>
END IF</span><span>
NEXT k</span><span>
NEXT j</span><span>
NEXT i
Программа выдает 45 таких чисел
</span>
125(10)=1111101(2) -6 единиц
тттттттттттттттттттт!ттттттттттт
Периферийное устройство под названием веб-камера
Ответ:
Нужны корректировки. Допустим, у нас есть числа 2 5 6. Первую пару выводим (числа 2 и 5), но когда начало второй, то начинать с 5 или с 6? Это меняет строчку i++ на i+=2, узнавай корректировки у учителя.
А вообще,
нц для i от 1 до 20
если ((a[i]%5==0 или a[i+1]%5==0) и i<20) {
k++;
i++ (Оставь эту строчку, если следующая проверка начинается для чисел, находящийся ПОСЛЕ пары. Иначе, проверка начнётся со второго числа выведенной пары чисел.)
}
i++
кн
вывод k.
кон
Ответ - 2
Собственно, сама программа, можете сделать проверку:
var f: text; st: string;
Begin
assign(f,'data.txt');
st:='Привет, информатики';
rewrite(f);
writeln(f,st);
close(f);
<span>end.</span>