Новые сообщения · Правила  
  • Страница 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
Поиск: