Предмет: Информатика
Автор: chernikov9696
Вопрос задан 10 лет назад

< >

Найти сумму чисел кратных семи от 10 до 600

Ответы

Ответ дал: VladimirGoryachev

0

program P1;
var
i,summ : integer;
begin

summ := 0;

for i := 10 to 600 do
if i mod 7 = 0 then
summ := summ + i;

writeln('Otvet: ',summ);

readln;
readln;
end.

Похожие вопросы

Русский язык

2 года назад

сочинение по картине М.И. Авилова "Поединок Пересвета с Челубеем"

Английский язык

2 года назад

Insert the articles: … last summer my friend’s parents took me to … North with them. His father is … scientist, and he had to do some work there. … place is on … island very far from Moscow.

Математика

7 лет назад

помогите пожалуйста 228 229

Математика

7 лет назад

Не проходите мимо!!! помогите!!! ( ДАЮ ВСЕ МОИ БАЛЛЫ точку М, расположенную вне окружности, пересекают касательные МА и МВ. Если угол АМВ =60° и МА=5 см, найдите АВ.

Химия

10 лет назад

напишите уравнения реакций ch4--->c2h6---->c3h8--->c6h14--->циклогексан c6h14--->c6h6--->c6h5no2

Математика

10 лет назад

каждому выпускнику школы решили подарить по одинаковому букету цветов.Для этого купили 114 гвоздик.Когда в каждый букет добавили ещё по 2 гвоздики,то в нём оказалось 5 цветков.Сколько выпускников

Математика

10 лет назад

0,2t+1,7t-0,54=0,22

Математика

10 лет назад

как розложить обыкновенную дробь в десятичную?