Var S,i:integer;
Begin
S:=0;
For i:= 10 to 99 do
S:=S+i;
WriteLn('S = ',S);
End.
44032*16/8 = 88064 б на секунду = 86 Кб
88064*60 = 5283840 байт на минуту ≈ 5Мб
5283840*80 = 422707200 байт на минуту ≈ 403Мб
01000100 01110101 01100010 01101001 01101110 01110011 01101011 01100001 01101001 01100001
Жил был цветочек. Рос он в тепле , жил хорошо .
Но вдруг появилась злая туча и начала сильно сильно поливать цветочек . Цветочек моментально стал грустным .конец