Опубликовано 08.03.2018 по предмету Информатика от Гость

Язык программирования - паскаль. Найти количество четных значений функции а=3b-1 при b=-10, -9, -8, …,10

Ответ оставил Гуру

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  Range(-10,10).Where(t->(3*t-1).IsEven).Count.Println
end.

Результат
10

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.