Сколько раз выполнится цикл: i:=6; while i<6 do i:=i+3 сделать в программе паскаль

1. 84 Кбайт

2. картинка (файлы)

а) 23 байт

б) 46 байт

3. картинка (файл)

Объяснение:

I = K * i

I - информационный объём текстового сообщения (размер файла, содержащего сообщение)

K - количество символов в сообщении

i - информационный вес одного символа (число бит, используемых для записи одного символа)

K = k1 * k2 * k3

K - количество символов в тексте

k1 - количество страниц в тексте

k2 - количество строк на странице

k3 - количество символов в строке

1.

Windows-1251 - стандартная 8-битная кодировка

Дано:

i = 8 бит = 1 байт

k1 = 32 страницы

k2 = 48 строк

k3 = 56 символов

Найти:

I

K = 32 * 48 * 56 = 86 016 символов в тексте

I = 86 016 * 1 = 86 016 байт = 84 К байт

2.

Windows-1251 - стандартная 8-битная кодировка

Юникод - стандартная 16-битная кодировка

Практическая работа № 1 - 23 символа (считая пробелы)

Дано:

i₁ = 8 бит = 1 байт

i₂ = 16 бит = 2 байт

K = 23 символа

Найти:

I₁

I₂

I₁ = 23 * 1 = 23 байт

I₂ = 23 * 2 = 46 байт

3.

8 бит = 1 байт

1 024 байт = 1 Кбайт

1 024 Кбайт = 1 Мбайт

При переходе из старшей единицы измерения в младшую применяется умножение.

При переходе из младшей единицы измерения в старшую применяется деление.

614 400 бит = 614 400 / 8 = 76 800 байт  

524 288 байт =  524 288 * 8 = 4 194 304 бит

и т.д.

1.

var x,a,d:integer;

begin

 write('Введите А= '); readln(a);

 write('Введите D= '); readln(d);

 x:=a mod d;

 writeln('Остаток= ',x);

end.

2.

var x:integer;

begin

 write('Введите x= '); readln(x);

 while x>9 do

 begin

   x:= x div 10;

 end;

 x:= x*sqr(x);

 write(x);

end.

3.

var x,g,r:integer;

begin

 write('Введите G= '); readln(g);

 write('Введите R= '); readln(r);

 x:=g div r;

 writeln('Целая часть= ',x);

end.

4.

var x,a1:integer;

a: array[0..3] of integer;

begin

 a1:=10000;

 while (x<1000) or (9999<x) do

   begin

   write('Введите 4ехзначное число= '); readln(x);

   end;

 for var i:=0 to 3 do

 begin

   a[i]:= (x mod a1) div (a1 div 10);

   a1:=a1 div 10;

   writeln(a[i]);

 end;

end.