Вычислить сумму всех чисел меньше 100 которые кратны 10

@Ranner · Регистрация: 13.12.2013

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

Вычислить сумму всех чисел меньше 100 которые кратны 10.

@Galka · 27.05.2009, 16:16

может и корявая, но работает

Pascal

program sum;
var i,k:integer;
    const n=100;
 begin
  k:=0;
   begin
   for i:=1 to n do
   if i mod 10 = 0 then
   k:=k+i;
   end;
   writeln('summa:',k);
   readln;
   end.

@Ranner 0 / 0 / 0 Регистрация: 13.12.2013 Сообщений: 9
		1
	Вычислить сумму всех чисел меньше 100 которые кратны 10 27.05.2009, 14:56. Показов 1769. Ответов 1 Метки нет (Все метки) Вычислить сумму всех чисел меньше 100 которые кратны 10. 0

	27.05.2009, 16:16

Вычислить сумму всех чисел меньше 100 которые кратны 10

Решение