Из данного предложения?Если да,значит Вансар.Потому что кличка собаки является именем собственным.
Var a0, a1, a2, a3, a: longint;
Begin
readln(a3, a2, a1, a0);
a:=a3*1000+a2*100+a1*10+a0;
write(a)
End.
Пример:
1 5 9 8
1598
plus=3; //на какое число далее будем прибавлять
start=0; //с какого числа начинаем сложение, и на каком сейчас
stop=33; //где кончаем прибавлять
while(status=true){
if(start<=stop){
//log это команда обрабатывающая результат если надо
function log(res){
start=start+res;
plus=start+res+3;
} // ну как там функции создаются...
log(start+plus);}else{
status=false;}}
P.s это что-то среднее между JS и PHP
1/16 кбайт = 64 байт = 512 бит
512 бит / 128 символов = 4 бита на символ
2^4 = 16 - максимальное количество комбинаций для шифрования букв.
Ответ B
<h3>// PascalABC.NET 3.4.2, сборка 1806 от 30.09.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var (na,nb):=ReadInteger2('Мощность множеств A и B:');
var A,B:set of integer;
repeat
A+=[Random(0,50)]
until A.Count=na;
A.Println;
repeat
B+=[Random(0,50)]
until B.Count=nb;
B.Println;
(A-B).Println
end.