pasa P pasa Регистрация 20 Сен 2013 Сообщения 79 Репутация 0 Спасибо 0 Монет 0 31 Окт 2022 #1 Задача на языке Паскаль. Использовать только оператор While.Вычислить: P=1+(1*2)+(1*2*3)+(1*2*3*...*R
Задача на языке Паскаль. Использовать только оператор While.Вычислить: P=1+(1*2)+(1*2*3)+(1*2*3*...*R
vxcvxcvxcv V vxcvxcvxcv Регистрация 8 Июн 2013 Сообщения 85 Репутация 0 Спасибо 0 Монет 0 31 Окт 2022 #2 var r: integer; i: integer = 1; j: integer = 1; p: integer = 0; begin write('Введи R: '); read(r); while not (r = i) do begin j := j * i; p := p + j; i := i + 1; end; writeln('Ответ: ', p); end. Позитивный голос 0
var r: integer; i: integer = 1; j: integer = 1; p: integer = 0; begin write('Введи R: '); read(r); while not (r = i) do begin j := j * i; p := p + j; i := i + 1; end; writeln('Ответ: ', p); end.
Рома 1308 Р Рома 1308 Регистрация 16 Ноя 2013 Сообщения 97 Репутация 0 Спасибо 0 Монет 0 31 Окт 2022 #3 program Hello; var i,S,P,R:integer; begin write ('Введите число R: '); readln(R); i := 0; S := 1; while i Позитивный голос 0
program Hello; var i,S,P,R:integer; begin write ('Введите число R: '); readln(R); i := 0; S := 1; while i
angerangel A angerangel Регистрация 7 Авг 2013 Сообщения 80 Репутация 0 Спасибо 0 Монет 0 31 Окт 2022 #4 100 р Программа готова Позитивный голос 0
koJlya K koJlya Регистрация 18 Окт 2013 Сообщения 86 Репутация 0 Спасибо 0 Монет 0 31 Окт 2022 #5 p:=0; a:=1; for i:=1 to r do begin a:=a*i; p:=p+a end; а теперь это переведи в оператор While. Позитивный голос 0