Определите значения переменной s после выполнения фрагмента алгоритма:
С решением а) s:= 0;
m:=6:
for i:=3 to m do
s:=s+i;
б) s:= 0;
m:=5:
for i:=2 to m do
s:=s+i;
в) s:=0;
i:=5;
while i>0 do
begin
i:=i-1;
s:=s+i;
end;
127
207
Ответы на вопрос:
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
Объяснение:
Var i: integer; begin for i : = 13 to 60 do if(i mod 3 = 0) then write(i: 3); end.
Популярно: Информатика
-
dashafomina9405.11.2020 13:22
-
slava4В20.12.2022 20:32
-
Stasburlakov10.05.2023 16:53
-
vqw8049403.04.2023 02:33
-
kirllakylov15.12.2022 23:58
-
mereikа20.07.2021 07:13
-
diman77229.07.2021 01:11
-
babikahenjudzao13.05.2023 06:33
-
алексей04110.10.2020 07:48
-
егор148101.05.2023 19:21