Найти среди последовательности чисел первое число, большее заданного А

@RoacH_JIL · Регистрация: 03.10.2012

Найти среди последовательности чисел 0,3; 0,3*1,3; 0,3*1,3*2,3;… первое число, большее заданного А.

@mamedovvms · 03.10.2012, 08:12

Pascal

z=0.3;
ch=0.3
while ch<a do
begin
 z:=z+1;
 ch:= ch*z;
end;
writeln(ch);
readln;

@RoacH_JIL · 04.10.2012, 19:03 **[ТС]**

Не работает!!!

Добавлено через 3 часа 57 минут
Плиз помогите очень надо.... а то у меня рейтинг в универе неочень....

@ermolay · 04.10.2012, 19:34

Сообщение от RoacH_JIL

Не работает!!!

а вы begin end добавить не пробовали? еще объявить переменные..

@RoacH_JIL 1 / 1 / 0 Регистрация: 03.10.2012 Сообщений: 39
		1
	Найти среди последовательности чисел первое число, большее заданного А 03.10.2012, 07:41. Показов 2002. Ответов 3 Метки нет (Все метки) Найти среди последовательности чисел 0,3; 0,31,3; 0,31,3*2,3;… первое число, большее заданного А. 0

@RoacH_JIL 1 / 1 / 0 Регистрация: 03.10.2012 Сообщений: 39
	04.10.2012, 19:03 [ТС]	3
	Не работает!!! Добавлено через 3 часа 57 минут Плиз помогите очень надо.... а то у меня рейтинг в универе неочень.... 0

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	04.10.2012, 19:34	4
	Сообщение от RoacH_JIL Не работает!!! а вы begin end добавить не пробовали? еще объявить переменные.. 0