Помогите с паскалем. 45 БАЛЛОВ ЗА ЛУЧШИЙ.
Поменять местами заданную цифру и последнюю цифру числа a.
Пример:
Мы вводим число 12345 и число по счету которое мы хотим поменять с последней (допустим вторую цифру) и компьютер выдаёт 15342.
PASCALABC.NET (НЕ ТУРБО)
Ответы
Ответ дал:
0
####################
Приложения:
Ответ дал:
0
9 класс
Ответ дал:
0
использовать только mod div циклы но не index exit swap
Ответ дал:
0
типо такого
var i,a,b,c,s,g,f,e,d,z,p,m,y:integer;
begin
readln(a);
readln(i);
s:=a div 10;
s:=s div 10;
s:=s div 10;
s:=s div 10; //1
p:=s;
g:=a div 10;
g:=g div 10;
g:=g div 10;
g:=g mod 10; //2
b:=g;
f:=a div 10;
f:=f div 10;
f:=f mod 10; //3
c:=f;
e:=a div 10;
e:=e mod 10; //4
m:=e;
d:=a mod 10; // 5
y:=d;
if i=1 then
p:=d;
d:=s;
z:=p*10000+g*1000+f*100+e*10+d;
writeln(z);
end.
var i,a,b,c,s,g,f,e,d,z,p,m,y:integer;
begin
readln(a);
readln(i);
s:=a div 10;
s:=s div 10;
s:=s div 10;
s:=s div 10; //1
p:=s;
g:=a div 10;
g:=g div 10;
g:=g div 10;
g:=g mod 10; //2
b:=g;
f:=a div 10;
f:=f div 10;
f:=f mod 10; //3
c:=f;
e:=a div 10;
e:=e mod 10; //4
m:=e;
d:=a mod 10; // 5
y:=d;
if i=1 then
p:=d;
d:=s;
z:=p*10000+g*1000+f*100+e*10+d;
writeln(z);
end.
Ответ дал:
0
Какой C#?
Ответ дал:
0
Вы адекватней будьте, а также внимательней. В C# никогда не было операторов begin и end.
Вас заинтересует
2 года назад
2 года назад
3 года назад
9 лет назад
9 лет назад
10 лет назад