Можно уточнение?
-Восимичеую? ЛИбо я что то перепутал, или у тебя опечатка...
Microsoft Word, Microsoft Excel, Goole Chrome (браузер), Блокнот, Калькулятор, Пейнтбраш
Var
a,chislo,t:longint;
<span>c,nov,posl:integer; </span>
<span>begin </span>
<span>readln(a); </span>
<span>posl:=a mod 10; </span>
<span>chislo:=a; </span>
<span>t:=1; </span>
<span>repeat </span>
<span>a:=a div 10; </span>
<span>t:=t*10; </span>
<span>until a<10; </span>
<span>chislo:=chislo mod t; </span>
<span>chislo:=posl*t+chislo-posl+a; </span>
<span>writeln(chislo); </span>
<span>readln; </span>
<span>end.</span>
Var
n,k:integer;
begin
k:=5; n:=1;
repeat
k:=k+2;
n:=n+1
until n=10;
Writeln(k)
end.
Результат
23
Вроде получилось:
var a,b,s:integer;
begin
write('Числа = ');
for a:=1 to 100 do
begin
b:=a mod 3;
if (b = 0) then
begin
write(a,', ');
s:=s+a;
if((s > 500) and (s<520)) then break;
end;
end;
writeln('Сумма чисел = ', s);
end.
Результат: