Ответ: переменная b будет равна 263
Получается-меяботка??!!а ты в каком классе
uses crt;
var n,k,a,b:string;
begin
write('Введите четырёхзначное число: ');
readln(a);
n:=copy(a,1,2);
k:=copy(a,3,2);
b:=k+n;
writeln(b);
end.
Не сказанно сколько см юля но ведь девушки не выростают до токого размера
Var
min, summ, count, maxn, max, i:integer;
begin
summ:=0;
count:=0
maxn:=0;
writeln('Введите диапазон чисел: ');
read(min, max);
for i:=min to max do
begin
if ((i mod 2) = 0) then
summ:=summ+i
else
begin
if (i>maxn) then
maxn:=i;
count:=count+1;
end;
end;
if (count>10) then
writeln(maxn)
else
writeln(summ);
end.
Если нужны какие-то объяснения - пиши в комментарии.