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

52

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

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

ответить

в избранное

61

xoxoll

12 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Смотрите также:

Расставить знаки или скобки между цифрами 1,2,3,4,5,6,7=1 1,2,3,4,5,6,7,8=1

Что делает эта функция?

Помогите! Все птк, что есть отдаю!

Алгоритмы можно разделить по способу … на текстовые и графические

Народ хелп нужна помощь решите задачу в паскале. Покупатель должен заплатить в кассу 54321…

1.) Перечислите основные элементы управления имеющиеся в диалоговых окнах…

Надо написать алгоритм в кумире. «ввести 2 целых числа, найти их произведение, не используяумножение»

Опишите примеры использования моделей для управления

Помогите составит дерево, Информатика Построй в тетради дерево такой сортировки бусин…

27400

14822

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

14216

Биология

7369

720

Экономика

18829

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

466

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...