4 Σ (S! +S) S=1 найдите ошибку, плиз program mar; uses crt; var F,S: integer; k: real; beginclrscr; F: =1; k: =0; for S: =1 to 4…

Question

75

4 Σ (S! +S) S=1 найдите ошибку, плиз program mar; uses crt; var F,S: integer; k: real; beginclrscr; F: =1; k: =0; for S: =1 to 4 dobeginF: =FS; k: =k(F+S); end; writeln ('k=',k: 4:2); readkey; end.

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

alexandr-shynkar · Accepted Answer

62

alexandr-shynkar

14 марта 2023

Вот так? Program solution; Uses Crt; Var s: byte; res, fact: word; Beginfact: =1; res: =0; For s: =1 to 4 do Begin res: =res+s+fact; fact: =fact*(s+1); End; Write (res); ReadKey; End.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль:

4 Σ (S! +S) S=1 найдите ошибку, плиз program mar; uses crt; var F,S: integer; k: real; beginclrscr; F: =1; k: =0; for S: =1 to 4…

4 Σ (S! +S) S=1 найдите ошибку, плиз program mar; uses crt; var F,S: integer; k: real; beginclrscr; F: =1; k: =0; for S: =1 to 4 dobeginF: =F*S; k: =k*(F+S); end; writeln ('k=',k: 4:2); readkey; end.

4 Σ (S! +S) S=1 найдите ошибку, плиз program mar; uses crt; var F,S: integer; k: real; beginclrscr; F: =1; k: =0; for S: =1 to 4 dobeginF: =FS; k: =k(F+S); end; writeln ('k=',k: 4:2); readkey; end.