Найти сумму чисел кратных семи от 10 до 600
Dmitry0232141
3
23.04.2019 19:10
0 
Популярные вопросы
- Вмагазин бытовой техники видеокамеры и телевизоры на общую сумму...
3 - Каким вы представили себе лирического героя в рассказе размышления...
3 - П.п.верещагин рынок в нижнем новгороде 1872г. сочинение рассуждение...
2 - Каковы причины возникновения силы трения? почему во всех измерениях...
1 - Легко ли человек из антарктиды адаптируются к климату беларуси...
1 - Составить предложения. a) called,the,mother,doctor,my,me,for....
2 - На раскрашивание 4 елочных шаров уходит 1час 20 минут. сколько...
2 - Нужно разлить виноградный сок в банки емкостью 2 литра и 3 л...
3 - Произведение чисел х и у не больше чем их сумма...
3 - Напишите сочинение на тему : гости в нашем доме . себе вопросами...
3
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.