Баба с возу, кобыле легче
Думаю, что так)
В левом нижнем углу иконка Пуск
Нажимаете на нее, далее жмем на кнопку Завершение Работы
k = 1536
I = 3 Кбайт = 3 * 8 * 1024 = 24576 Бит
i = 24576 / 1536 = 16
N = 2 ** i
N = 2 ** 16
N = 65536.
Ответ: Мощность алфавита равна 65536
Var
a,b:real;
begin
writeln('Сколько стоит электричество?');
read(a);
writeln('Сколько показывает <span>счетчик</span>?');
read (b);
writeln('Вам нужно заплатить ', a*b);
end.
const N=10
var a:array[1..n] of integer;
k,i,p:integer;
begin
for i:=1 to n do begin
a[i]:=random(101);
write(a[i]:3);
end;
writeln;
write('Введите k,p');
read(k,p);
writeln;
if a[p]>a[k] then write(a[p]) else write (a[k]);
end.