Найти сумму целых положительных чисел, кратных 3 и меньших 200 - Turbo Pascal
Формулировка задачи:
Найти сумму целых положительных чисел, кратных 3 и меньших 200.
Помогите пожалуйста написать программу! Времени до сдачи совсем нет, чтоб самой разобраться.
Решение задачи: «Найти сумму целых положительных чисел, кратных 3 и меньших 200»
textual
Листинг программы
uses crt; const n=199; var i,s:integer; BEGIN clrscr; s:=0; for i:=1 to n do if i mod 3=0 then s:=s+i; write('Symma = ',s); readkey; END.
Объяснение кода листинга программы
- В начале кода подключается библиотека crt, которая используется для работы с функциями ввода-вывода в Turbo Pascal.
- Затем определяется константа n, которая равна 199.
- Далее объявляются две переменные: i и s. Переменная i является целочисленной, а переменная s также целочисленная.
- После этого начинается цикл for, который выполняется от 1 до n (то есть от 1 до 199).
- Внутри цикла проверяется условие: если значение переменной i кратно 3 (mod 3=0), то к переменной s прибавляется значение i.
- После выполнения цикла выводится значение переменной s с помощью функции write.
- Затем с помощью функции readkey происходит ожидание нажатия клавиши перед завершением программы.