Постройте трассировочную таблицу выполнения программы Summa_1 для значения n=3
Program Summa_1;
Var E, a: Real; N,i: Integer;
Begin
Write('N='); Readln (N);
E:=0; i:=0; a:=1;
While i<=N DO
Begin
E:=E+a;
i:=i+1;
a:=a/i
End;
WriteLn('E=', E)
End.
268
496
Ответы на вопрос:
Полный код:
a = 10
b = 5
if a < 5:
a = 10 + 5
else:
a = 10 - 5
print(a)
ответ: 5
Популярно: Информатика
-
Margaryaanmag14.01.2023 09:20
-
рооллбббб02.09.2022 07:32
-
Ivanvipmarhade04.06.2023 06:06
-
sayana728.09.2020 05:57
-
qwertyzored24.12.2021 02:52
-
varvara27327.04.2022 14:50
-
chiglakova8313.04.2022 23:56
-
kusrik23.04.2021 11:45
-
karyakinayulya31.12.2022 01:40
-
Dyadya1127.07.2020 08:42