Ответ учителя по предмету Информатика
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(14.Step(7).TakeWhile(x->x<100).Count)
end.
Результат
13
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(14.Step(7).TakeWhile(x->x<100).Count)
end.
Результат
13
Похожие вопросы от пользователей