Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
supernatural54
18.01.2021 06:45 •
Информатика
Найти сумму целых положительных двузначных чисел из промежутка а до б, кратных 3 и заканчивающихся на 2
Показать ответ
Ответ:
Янеж2005
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 оценок)
Популярные вопросы: Информатика
АнелияУразбаева
28.02.2022 12:55
нарисовать блок-схему согласно программе...
ralina27
26.01.2023 16:01
1. Алгоритмическая конструкция ветвление - ... * обеспечивает выполнение одной или другой последовательности команд в зависимости от истинности или ложности условия...
YuliaVaskiv
27.05.2023 08:37
Среди элементов с нечетными номерами найдите наибольший элемент массива, который делится на 3 НА ЯЗЫКЕ ПИТОН...
умныйчеловеккслюблю
11.12.2022 10:05
Найти количество чисел в массиве, которые делятся на 3, но не делятся на 7. НА ЯЗЫКЕ ПИТОН...
alina1885
20.06.2021 02:41
Задачі js31. Дано прямокутник висотою 15см шириною 30см. Напишіть код завданням якого буде вивести на екран площу прямокутника якщо вона більше 400, а якщо меньше...
vicroriaalakoz3
06.09.2020 20:29
Какая пропускная требуется для передачи файла размером 70 Кбайт по сети за 2 минуты? (Кбит в секунду)....
anastasiyalaza
12.05.2022 07:09
3.Перевести следующие числа в заданную систему счисления: 10101001111,0111101,— ?16111001110111011001, —8FA1B,DE16—?,1435,25610 —»?,...
stqz
14.08.2020 01:21
Вконструкторе алгоритмов написать программу,которая получает три числа и выводит количество одинаковых чисел в этой цепочке...
ilacher12
28.03.2023 08:22
Перевести программу с pascalabc.net в vba program integer29; var a,b,c,num,s: integer; begin write( введите целое число a: ); readln(a); write( введите целое число...
kilernosok
21.05.2022 12:56
Закодируйте числа в четверичной системе счисления методом диада 232301221...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.