Найти сумму целых положительных чисел, кратных 3 и меньших 200 - Turbo Pascal

Формулировка задачи:

Найти сумму целых положительных чисел, кратных 3 и меньших 200. Помогите пожалуйста написать программу! Времени до сдачи совсем нет, чтоб самой разобраться.

Код к задаче: «Найти сумму целых положительных чисел, кратных 3 и меньших 200 - Turbo Pascal»

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

6   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы