Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Kira6666666666
02.01.2022 19:09 •
Информатика
Составить программу, вычисляющую сумму чисел от 1 до 256, кратных 13.
Ответ:
Капитошка1985
02.07.2020 23:29
Программа на Паскале
program xxx;
var i,s : integer;
begin
s:=0;
for i:=1 to n do
if i mod 13 = 0 then s := s + i;
write('сумма чисел кратных 13 =', s)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
artiom726
25.06.2022 16:39
0,02 e2* 4 sin( 6.x) Известно, что уравнение на отрезке [1,8; 2,4] имеет единственный корень. Найдите его приблизительное значение с точностью не менее 0,00001 и запишите в ответе...
krut2202
24.02.2020 17:12
С какой целью создаются сноски...
ZhannaMeer
28.03.2023 11:03
Помагите умоляю ЗАДАНИЯ ПО СУММАТИВНОМУ ОЦЕНИВАНИЮ ЗА 3 ЧЕТВЕРТЬ Суммативное оценивание за раздел «Программирование на языке Python»6 класс...
gg5765453232
04.05.2020 14:37
на у меня сор всего 1 вопрос а то...
простоникр
07.11.2020 08:07
с информатики 7 класс СОР за 3 четверть ...
alina200120
22.03.2020 09:39
5. Соотнесите к типам данных * 1/4, 25.6 Hello , 100 100, 250 Целые числа (int) Вещественные числа (Float) Строки (str) Целые числа (int) Вещественные числа (Float) Строки (str)...
dastanemilbeko
14.01.2023 12:44
String6. дан символ c, изображающий цифру или букву (латинскую или рус- скую). если c изображает цифру, то вывести строку «digit», если латин- скую букву — вывести строку «lat»,...
кракодиллох2
29.11.2022 18:03
3(x - 1)(x + 1) = 2(x - 2)(x + 2) + x^2 + 2x...
talibansky
29.11.2022 18:03
Соматическая нервная система иннервирует: 1. только скелетные мышцы 2. скелетные мышцы, кожу 3. только кожу 4. внутренние органы...
Дубой
29.11.2022 18:03
Где И. Бабель работает и служит с 1917 по 1920-е годы?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
program xxx;
var i,s : integer;
begin
s:=0;
for i:=1 to n do
if i mod 13 = 0 then s := s + i;
write('сумма чисел кратных 13 =', s)
end.