Помогите решить - Форум ПРОГРАММИСТОВ

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

Помогите решить

Знайти значення 1*3*5*...*101

№1 | Автор: Lyuscha | 2012-02-29, 17:59 | Репутация: [ + 0 ]

Без долгой арифметики в паскале не обойтись..
Ну её воплощать я не умею, держи как есть:

var
s:longint;
k:integer;
begin
s:=1;k:=1;
repeat
s:=s*k;k:=k+2;
until k=101;
writeln(s);
end.

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№2 | Автор: Berestovskiy | 2012-02-29, 19:49 | Репутация: [ + 211 ]

Помогите решить

Страница 1 из 1
1

прикладная математика