program raf105;
var
i,n: integer;
s: real;
begin
write('Введите N: ');
readln(n);
repeat
i:= i+1;
s:= s + 1/i;
until i = n;
writeln('S = ',s);
end.
<h3><u>PascalABC 3.4.2</u></h3>
Блок-схема по ГОСТ 19.701-90 (ISO 5807-85) - во вложении
#include <iostream>
using namespace std;
int main()
{
int s = 2;
while(s < 100)
{
s = s * s;
}
cout << s;
}
Output: 256
Байт килобайт мегабайт и гигабайт
1 гигабайт=1024 мегабайт
1 мегабайт=1024 килобайт
1 килобайт=1024 байт
ну и для общего развития 1 байт=8бит