Var i,n,sum:integer;
begin
sum:=0;
write ('N = ');
readln (n);
for i:=1 to n do sum:=sum+i;
writeln ('Summa; ',sum);
end.
Begin вроде как да он сам
A=6
s=0
a=2? нет
s=s+a=0+6=6
a=a-1=6-1=5
a=2? нет
s=s+a=6+5=11
a=a-1=5-1=4
a=2? нет
s=s+a=11+4=15
a=a-1=4-1=3
a=2? нет
s=s+a=15+3=18
a=a-1=3-1=2
a=2? да
Ответ: s=18
1) следствие, ветвление, цикл
2) For <параметр цикла> := <начальное значение> To <конечное значение> Do <тело цикла>;
3) Да
5)While L do OP;
1 символ кодируется 8 битами или иначе 1 байтом.
1кб=1024байт
1мб=1024кб
1гб=1024мб
1. 11 байт
2. 88 бит
3. 1 символ 8 бит, 26 * 8 = 208
4. 8 и 4 соответственно
5. 73728 байт
356515840 байт
7516192768 байт
6.
19.53125 Кб
25600000 Кб
31457280 Кб