Найти сумму тех чисел, которые делятся на 5 или на 7

@Altrex · Регистрация: 24.12.2009

Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7.

@yanyk1n · 29.12.2009, 20:12

Pascal

uses crt;
var i,s:integer;
 
begin
 clrscr;
 s:=0;
 for i:=1 to 50 do if (i mod 5=0) or (i mod 7=0) then s:=s+i;
 writeln('S=',s);
 readln;
end.

@Altrex 0 / 0 / 0 Регистрация: 24.12.2009 Сообщений: 37
		1
	Найти сумму тех чисел, которые делятся на 5 или на 7 29.12.2009, 20:10. Показов 4614. Ответов 1 Метки нет (Все метки) Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7. 0

Опции темы

Решение