1) var i,n: Integer;
begin
i:=0;
writeln('Введите число');
readln(n);
while i<>n do
begin
Inc(i);
writeln(i);
end;
end.
2) var i,n,x,count: Integer;
begin
writeln('Введите кол-во цифр');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,' число');
readln(x);
Inc(count,x);
end;
writeln('Сумма чисел: ',count);
end.
Var a:array[1..10] of integer;
i,x:integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],' ');
end;
WRITELN;
write('Что ищем?: ');
readln (x);
for i:=1 to 10 do if x=a[i] then write('A[',i,'] ');
end.
42*34=1428 байт на 1 лист
12*1428=17136 байт на 1 тетрадь
17136/1024~17,6 Кб
1,44~1475 Кб
1475/17,6~84 тетради
Ответ: 84 тетради
32= 100000 2cc 6 бит на символ
64= 1000000 2cc 7 бит на символ
80*6/70*7 = 48/49
Бра́узер<span>, или </span>веб-обозреватель<span>— </span>прикладное программное обеспечение<span> для просмотра </span>веб-страниц<span>, содержания </span>веб-документов<span>, </span>компьютерных файлов<span> и их </span>каталогов<span>; управления </span>веб-приложениями<span>; а также для решения других задач.</span>