Помогите пожалуйста:)1.Определите значение переменной f после выполнения фрагмента алгоритма: f:=1 нц для i от 1 до 5 f:=f*iкц2.Определите значение переменной S после выполнения фрагмента алгоритма:s:=0 нц для i от 1 до 5 s:=s+...
Помогите пожалуйста:)
1.Определите значение переменной
f после выполнения фрагмента алгоритма:
f:=1
нц для i от 1 до 5
f:=f*i
кц
2.Определите значение переменной
S после выполнения фрагмента алгоритма:
s:=0
нц для i от 1 до 5
s:=s+i*i
кц
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.NET версия 3.2, сборка 1389
begin
var f := 1;
for var i := 1 to 5 do
begin
f := f * i;
writeln(i, ' -> ', f);
end;
writeln;
var s := 0;
for var i := 1 to 5 do
begin
s := s + i * i;
writeln(i, ' -> ', s);
end;
end.
И мы получаем такие данные
1)
1 -> 1
2 -> 2
3 -> 6
4 -> 24
5 -> 120
Ответ 120
2)
1 -> 1
2 -> 5
3 -> 14
4 -> 30
5 -> 55
Ответ 55
Не нашли ответ?
Похожие вопросы