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

@cmook · Регистрация: 10.01.2014

Author24 — интернет-сервис помощи студентам

Помогите решить в паскале очень срочно нужно

2. Используя оператор цикла, найти сумму элементов, указанных в конкретном варианте. Результат напечатать, снабдив соответствующим заголовком.
Найти сумму целых положительных чисел, кратных 3 и
меньших 200.

@ermolay · 12.01.2014, 08:48

Pascal

var
  i,s: integer;
begin
  writeln('Вычисление суммы чисел, кратных 3 и меньших 200');
  i:=0;
  repeat
    s:=s+i;
    inc(i,3);
  until i>200;
  writeln('S = ',s);
  readln;
end.

@cmook 0 / 0 / 1 Регистрация: 10.01.2014 Сообщений: 5
		1
	Найти сумму целых положительных чисел, кратных 3 и меньших 200 12.01.2014, 06:43. Показов 2312. Ответов 1 Метки нет (Все метки) Помогите решить в паскале очень срочно нужно 2. Используя оператор цикла, найти сумму элементов, указанных в конкретном варианте. Результат напечатать, снабдив соответствующим заголовком. Найти сумму целых положительных чисел, кратных 3 и меньших 200. 0

	12.01.2014, 08:48

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

Решение