Var x,n,i,t,k:integer;
begin
read(x,n);
t:=0;
k:=1;
while t<n do
begin
k:=k*x;
inc(t); //t:=t+1
end;
end.
Вроде так.
<em>512 бит = 64 байт</em>
<em>81 902 бит = 10 240 байт</em>
<em>15 кб = 15 360 байт</em>
<em>88 кб = 720 896 бит</em>
<em>5 гб = 5 120 мб</em>
<em>1 мб = 1 048 576 байт.</em>
<em><u>Пожалуйста)</u></em>
//Pascal ABC.NET v3.0 сборка 1111
var
a,k,s:integer;
begin
readln(k); //вводим k
a:=0;
s:=0;
while a>=0 do //пока а >=0
begin;
if a>k then s:=s+a; //если a>k, тогда добавляем к s
readln(a); //каждый раз вводим в a
end;
writeln(s); //выводим s
<span>end.
Пример ввода:
45
34
56
67
<span>-2
Пример вывода:
123</span></span>
процессорная - это виртуальная платформа для выполнения отдельного процесса. она предназначена для поддержки процесса, создаётся при его активации и «умирает» после его окончания.
системная - полнофункциональная, постоянно действующая системная среда, служащая для поддержки операционной системы вместе с большим количеством её пользовательских процессов, обеспечивает «гостевой» операционной системе доступ к виртуальным аппаратным средствам, в том числе к процессору и памяти, устройствам ввода/вывода
Program p1;
var a,b:integer;
begin writeln('Введите два числа');
readln(a,b);
if a=b
then writeln('Числа равны')
else if a<b
then writeln(1)
else writeln(2);<span>end.</span>