Найти сумму 24 случайных чисел

@just skill · Регистрация: 15.08.2015

Найти сумму 24 случайных чисел. Числа генерируемых в диапазоне от 0 до 48. Использовать цикл do-while ()

@APALoff · 17.08.2015, 14:51

Pascal

k:=24; s:=0;
While k>0 do
Begin
  s:=s+Random(49);
  Dec(k);
end;
Writeln(s);

@Александр710 · 19.08.2015, 18:50

Pascal

var
s, a, b:integer; 
begin
randomize;
s:=0;
for a:=1 to 24 do 
begin
s:=s+random(10);
writeln('Сумма: ', s);
 
end;
end.

@Puporev · 19.08.2015, 19:25

Александр710, Прочитал бы условие хоть

Сообщение от just skill

Использовать цикл do-while

@just skill 0 / 0 / 0 Регистрация: 15.08.2015 Сообщений: 6
		1
	Найти сумму 24 случайных чисел 15.08.2015, 10:14. Показов 6303. Ответов 3 Метки нет (Все метки) Найти сумму 24 случайных чисел. Числа генерируемых в диапазоне от 0 до 48. Использовать цикл do-while () 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.08.2015, 19:25	4
	Александр710, Прочитал бы условие хоть Сообщение от just skill Использовать цикл do-while 0

Решение