При мощности алфавита 16 для хранения одного символа требуется log(2)16 = 4 бита.
Объем текста = 4*180*1024 бит = 4*180*1024 / 8 байт = 90*1024 / 1024 Кбайт = 90 Кбайт
Var
i,s,t,koldney:integer;
begin
writeln('введите количество дней');
readln(koldney);
for i:=1 to koldney do
begin
writeln('введите температуру в ', i, ' день');
readln(t);
if t<0 then
s:=s+1;
end;
writeln('количество дней с температурой ниже 0 = ', s);
readln;
end.
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(10,0,20).Println;
a:= a.Where((v,i) -> i <> 4).ToArray;
a.Println;
end.
Функция sqr(x) служит для возведения аргумента х в квадрат, поэтому представим a¹⁰ в виде максимально возможного набора операций возведения в квадрат.
a¹⁰ = a²·a⁸ = a²·(a⁴)² = a²·[(a²)²]²
var
a:real;
begin
Write('a=');
Read(a);
Writeln(a,'^10=',sqr(a)*sqr(sqr(sqr(a))))
end.
Тестовые решения
a=2
2^10=1024
a=3.18
3.18^10=105747.765633159
a=10
10^10=10000000000
a=318.53
318.53^10=1.07523505784868E+25
const
N=5;
var
a:array [1..N] of integer;
i,k,count:integer;
begin
for i:=1 to N do
begin
a[i]:=random(20);
write(a[i]);
end;
for i:=1 to N do
begin
count:=0;
k:=2;
if a[i] < 2 then count:=1;
while (k*k<=a[i]) and (count = 0) do
begin
if a[i] mod k = 0 then inc(count);
inc(k);
end;
if count = 0 then write(i);
end;
end.