0001
0010
0011
0100
0101
0110
0111
1000 1001101010111100
11011110. 1111
Программа определяет кратно число 10 или нет. Если кратно печатает True, если нет печатает False.
Вывод можно дополнить так:
write('Число ',x,' — ',a);
Если прописать в паскаль этот алгоритм через цикл while (цикл с <span>предусловием)</span>, то ответ будет B=25.
var a, b: integer;
begin
a := 2;
b := 0;
while a <> 7 do
begin
a := a + 1;
b := b + a;
end;
writeln(b);
end.
Маша и вова, маша и олег, женя олег, женя вова ,маша женя
в первом случае х идёт от 1-9 а Y от 0 до 8. шагов 9, к концу Y=8
во 2 случае
y 0 8 14 18 20 20
x 10 8 6 4 2 0
шагов 5, к концу Y=20