52

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

tim71 19 августа 2022

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

категория: информатика

61

program P1; vari,summ: integer; beginsumm: =0; for i: =10 to 600 doif i mod 7=0 thensumm: =summ+i; writeln ('Otvet: ',summ); readln; readln; end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...