Kaspersky, Avast, Dr.Web, Eset NOD 32
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrGen(7,3,t->3*t); a.Println
end.
<u>Результат</u>
3 9 27 81 243 729 2187
N=16
K=2048
16ти символьный авфавит это четыре знака например: 0000
i=4
множим символы на бит шифра.
2048×4=8192
Теперь считаем сколько килобайт весит сообщение
8192:8000=1.024
Var x,y,z:integer;
begin
x:=5; y:=-6
if (x>y) then z:=x+y else z:=y-x;
Writeln(Z);
end.
Var
x,y:integer;
begin
readln (x);
while x>0 do
begin
y:=x mod 10;
x:=x div 10;
end;
writeln ('Первая цифра = ',y);
end.