Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Frororo
24.11.2020 11:05 •
Информатика
Найти сумму целых положительных двузначных чисел из промежутка а до б, кратных 3 и заканчивающихся на 2
Показать ответ
Ответ:
pikulev
07.10.2020 21:17
//PascalABC.NET 3.3,сборка 1627 от 27.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=readinteger2('a,b-> ');
var q:=a.Step; var t:=q.Take(b-a+1);
var u:=t.Where(t->(t mod 3 = 0) and ( t mod 10 = 2)); u.sum.Println;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
vikavikt
03.02.2022 03:11
за правильные ответы!...
Мозговина12
08.09.2022 15:34
РЕШИТЕ Размер растровой цифровой фотографии достигает 2400х1600 при глубине цвета 16 бит на точку. Какой объём памяти компьютера займет данная фотография? ответ записать в мегабайтах....
дариииинннкккааа
16.02.2023 05:21
Таблица, в которой всем символам компьютерного алфавита поставлены в соответствие порядковые номера.1)кодовая таблица2)декодирование3)кодированиеСОР ...
alinamalina2703
19.07.2021 01:23
Информатика сор, 7 класс ...
roshko2002
08.03.2023 03:43
Какой объект является достаточно сложным для того, чтобы назвать его системой? любой искусственный объект любой реальный объект любой объект...
nOMOSHHuK
29.10.2020 23:18
Сколько существует натуральных чисел x, для которых выполняется неравенство: A x B? A=10110001 B=10110101 Числа А и B указаны в двоичной системе. В ответе укажите только количество...
aaaaaalina1yuin
08.12.2021 10:08
решить: 1. Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы? a = 10; for i in range(2): a -= 3 2. Чему будет равно значение целой переменной...
seslermarina200
22.05.2020 04:29
Написать программу в паскаль : в массиве из 10 вводимых с клавиатуры чисел подсчитать количество чисел кратных первому элементу, но не кратных последнему элементу...
танюха12354
08.05.2020 21:49
18 б статья, набранная на компьютере, содержит 64 страницы, на каждой странице 40 строк, в каждой строке 48 символов. определите размер статьи в кодировке кои-8,...
jonni0203
19.06.2022 08:37
Вкодировке кои-8 каждый символ кодируется одним байтом. определите количество символов в сообщении, если информационный объём сообщения в этой кодировке равен 80 бит. статград...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=readinteger2('a,b-> ');
var q:=a.Step; var t:=q.Take(b-a+1);
var u:=t.Where(t->(t mod 3 = 0) and ( t mod 10 = 2)); u.sum.Println;
end.