Оператор цикла For

@Dilara · Регистрация: 16.12.2011

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

Вывести на экран значение 5!, 7!,9!, 11!

Psilon · 22.03.2012, 17:24

Delphi

var
   n,i,fac:word;
begin
writeln('Введите число');
repeat
try
   readln(n);
except
   writeln('Неверный формат');
end;
until n>0;
fac:=1;
for i:= 1 to n do fac:=fac*i;
writeln(n,'! = ',fac);
readln;
end.

@Dilara 1 / 1 / 0 Регистрация: 16.12.2011 Сообщений: 38
		1
	Оператор цикла For 22.03.2012, 17:19. Показов 1135. Ответов 1 Метки нет (Все метки) Вывести на экран значение 5!, 7!,9!, 11! 0

Опции темы

Оператор цикла For

Решение