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

29.08.2013, 00:14. **Показов** 2260. **Ответов** 2

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

@Cyborg Drone · 29.08.2013, 01:09

Pascal

program Sum_4;
 
var i, sum: integer;
 
begin
  sum := 0;
  for i := 1 to 50 do if i mod 4 = 0 then sum := sum + i;
  writeln('Sum of positive integer numbers smaller 50 and totally divide 4 is: ', sum);
  readln
end.

Оформление сами сделаете. Всего Вам доброго.

29.08.2013, 01:12

спасибо большое!)

spac
		1
	Найти сумму целых положительных чисел, кратных 4 и меньших 50 29.08.2013, 00:14. Показов 2260. Ответов 2 Метки нет (Все метки) Найти сумму целых положительных чисел, кратных 4 и меньших 50

	29.08.2013, 01:12

Опции темы

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

Решение