Var a: string;
i: integer;
begin
readln(a);
for i := 1 to length(a) do
if (a[i] = 'а') then a[i] := 'и';
writeln(a);
<span>end.</span>
Ответ: а[3] = 2, a[4] =2.
1. 320 * 480 * 16 = 2457600 бит.
2457600 : 8 = 307200 байт.
307200 : 1024 = 300 КБ
2. 2,5 МБ = 20971520 бит.
<span>2684354560 б = 2,5 ГБ.
</span>
Program v1;
Var n,k, sum: integer;
Begin
Write ('Введите знаменатель: ');
Readln(n);
Write ('Введите числитель: ');
Readln (k);
Sum := (n div k);
Write(Sum);
End.