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

@oksi-xd · Регистрация: 23.10.2013

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

Составить программу для решения следующей задачи: Найти сумму целых положительных чисел кратных 5 и меньших 50. помогите пожалуйста

@L_e_g_i_o_n · 19.01.2014, 12:51

Pascal

var
  i, s : integer;
begin
writeln('÷èñëà êðàòíûå 5 è ìåíüøèå 50');
i:=0;
s:=0;
while i<50 do
begin
if i mod 5 = 0 then
               begin
                write(i,' ');
                 s:= s + i;
               end;
i:=i+1;
end;
writeln;
writeln('ñóììà = ',s);
end.

@oksi-xd · 19.01.2014, 12:54 **[ТС]**

Введите число: 50
Сумма S = 275
такой должен быть вывод на экран

@isqoff · 19.01.2014, 13:10

помоему у вас в задании

Сообщение от oksi-xd

Составить программу для решения следующей задачи: Найти сумму целых положительных чисел кратных 5 и меньших 50 . помогите пожалуйста

@L_e_g_i_o_n · 19.01.2014, 14:07

Сообщение от oksi-xd

Введите число: 50
Сумма S = 275
такой должен быть вывод на экран

Pascal

var
  i, s,n : integer;
begin
 
i:=0;
s:=0;
write('ââåäèòå ÷èñëî: ');
readln(n);
while i<n do
begin
if i mod 5 = 0 then s:= s + i;
i:=i+1;
end;
writeln('ñóììà = ',s);
end.

@oksi-xd 2 / 2 / 0 Регистрация: 23.10.2013 Сообщений: 58
		1
	Найти сумму целых положительных чисел кратных 5 и меньших 50 19.01.2014, 12:31. Показов 2664. Ответов 4 Метки нет (Все метки) Составить программу для решения следующей задачи: Найти сумму целых положительных чисел кратных 5 и меньших 50. помогите пожалуйста 0

@oksi-xd 2 / 2 / 0 Регистрация: 23.10.2013 Сообщений: 58
	19.01.2014, 12:54 [ТС]	3
	Введите число: 50 Сумма S = 275 такой должен быть вывод на экран 0

@isqoff Добры_Змейка 53 / 53 / 43 Регистрация: 09.06.2010 Сообщений: 170
	19.01.2014, 13:10	4
	помоему у вас в задании Сообщение от oksi-xd Составить программу для решения следующей задачи: Найти сумму целых положительных чисел кратных 5 и меньших 50 . помогите пожалуйста 0

Опции темы