4σ (s! +s) s=1 найдите ошибку, program mar; uses crt; var f,s: integer; k: real; begin clrscr; f: =1; k: =0; for s: =1 to 4 do begin f: =f*s; k: =k*(f+s); end; writeln('k =',k: 4: 2); readkey; end.
БИОЛОГИЯ1204
3
18.05.2019 11:30
3
Другие вопросы по теме Информатика
Mariniko3679
06.06.2019 06:40
Аанимешка
06.06.2019 06:40
xomis1
06.06.2019 06:40
Коте0под0наркоте
27.04.2020 09:27
Т1216
13.05.2019 20:44
AMK525
04.09.2019 15:30
yliana121
17.08.2019 05:10
stasison
17.08.2019 05:10
Популярные вопросы
- Два треугольника равны, если две стороны и высота опущенная на одну из них,...
3 - Решите уравнение: 3х^3-3x^2+3x-3=0...
3 - Переведите сочинение на язык, обязательно употребить вместо пристально смотрел...
1 - Изложение с элементами сочинения. не менее 70 слов. дом пушкина в михайловском...
1 - Решите . при цене 15 рублей за единицу товара спрос предъявлялся на 60 тыс....
3 - Растояние а и в масштабе 1: 7500 000 2,8см.между растояние масштаб 1: 1500...
1 - Какой объем воды находится в сосуде, если на нее действует сила тяжести 150н?...
2 - Из-за чего происходит реакция, когда в соляную кислоту добовляют цинк?...
2 - Какой фосфор горит белый или красный?...
1 - Написать сочинение на пол страницы день за вашим окном описать 20 и...
1
Вот так?
Program solution;
Uses Crt;
Var s : byte;
res, fact : word;
Begin
fact := 1;
res := 0;
For s := 1 to 4 do
Begin
res := res + s + fact;
fact := fact * (s + 1);
End;
Write(res);
ReadKey;
End.