Войти Регистрация Спроси ai-bota

Составить программу, вычисляющую сумму чисел от 1 до 256, кратных 13.

Ответ:

lod2003

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 оценок)

Популярные вопросы: Информатика

Chvrv

25.03.2020 05:46

Сколько слов длины 4 начинающихся с согласной буквы можно составить из букв o г э ребятки...

alina1922

02.08.2021 06:22

Какому числу соответствует развернутая запись приведенного числа? 2*103 + 1*102 + 7*101 + 9*100 + 4*10-1...

mement0m0ri

08.08.2022 13:43

Написать программу,которая вводит массив из n целых чисел и выводит на экран элементы с чётными номерами. протестировать программу на произвольных массивах размерностью 5...

Lenin227

20.03.2020 12:38

Фрагмент исчезнет, а его место заполнится цветом а) вставить б) копировать в) удалить г)перетащить...

Манипуляция

07.03.2021 14:08

Решение некоторой информационной -это а)хранение информации б)обработка информации в) передача информации г) получение информации...

toriblinova

08.01.2023 17:38

Фрагмент исчезнет с экрана и поместится в буфер обмена a) вырезать б) копировать в)вставить г) переместить...

shayukalena

22.03.2023 04:42

Для чего египтяне использовали значки- =)...

danik2012daniweufyv3

24.02.2020 06:54

1. какой вид компьютерной графики стоит применить для разработки эмблемы предприятия, если заранее известно, что размер эмблемы может быть как малым ( на бланках предприятия),...

angelicafifa

24.02.2020 06:54

3. выполни программу для робика ⟶⟶⟶↓↓↓⟵⟵⟵ ⟶⟶⟶↓↓↓⟵⟵⟵ по клеткам как это будет?...

willzymustdie

29.03.2022 18:09

5запишите значение переменной s, полученное в результате работы следующей программы var s,k: integer; begin s : =5; for k : = 1 to 20 do if (s*k) mod (s-k)= 0 then s : = s...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку