Предмет: Информатика,
автор: 703271dce5
Помогите с паскалем. 45 БАЛЛОВ ЗА ЛУЧШИЙ.
Поменять местами заданную цифру и последнюю цифру числа a.
Пример:
Мы вводим число 12345 и число по счету которое мы хотим поменять с последней (допустим вторую цифру) и компьютер выдаёт 15342.
PASCALABC.NET (НЕ ТУРБО)
Ответы
Автор ответа:
0
####################
Приложения:
Аноним:
9 класс
использовать только mod div циклы но не index exit swap
типо такого
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.
Какой C#?
Вы адекватней будьте, а также внимательней. В C# никогда не было операторов begin и end.
Похожие вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Қазақ тiлi,
автор: Nikto585
Предмет: Русский язык,
автор: polinatrofim47
Предмет: Математика,
автор: Карина5366