Найти сумму целых положительных чисел, кратных 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.

Объяснение кода листинга программы

  1. В начале кода подключается библиотека crt, которая используется для работы с функциями ввода-вывода в Turbo Pascal.
  2. Затем определяется константа n, которая равна 199.
  3. Далее объявляются две переменные: i и s. Переменная i является целочисленной, а переменная s также целочисленная.
  4. После этого начинается цикл for, который выполняется от 1 до n (то есть от 1 до 199).
  5. Внутри цикла проверяется условие: если значение переменной i кратно 3 (mod 3=0), то к переменной s прибавляется значение i.
  6. После выполнения цикла выводится значение переменной s с помощью функции write.
  7. Затем с помощью функции readkey происходит ожидание нажатия клавиши перед завершением программы.

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы