Составьте программу на языке Паскаль: Поменять местами первую и последнюю цифры ...

October 2021 2 11 Report

Составьте программу на языке Паскаль: Поменять местами первую и последнюю цифры четырёхзначного числа. Очень срочно помогите пожалуйста!

Anhen6 Var a,a1,a2,a3,a4;
begin
read (a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a div 10 mod 10;
a4:=a mod 10;
a:=a4*1000+a2*100+a3*10+a1;
write (a);
end.

3 votes Thanks 6

duzer73 Uses Crt;
var   x : Integer;
Zn:Char;
strNum:string;
begin
ClrScr;
Write('Введите четырех значное число: ');
ReadLn(x);
Str(X,strNum);
Zn:=strNum[1];
strNum[1]:=strNum[Length(strNum)];
strNum[Length(strNum)]:=Zn;
x:=StrToInt(StrNum);
writeln(strNum);
end.

1 votes Thanks 1

Answers & Comments

kakie iz veshestv reagiruyut poparno a sernaya kislota i oksid sery iv b sulf

v alyuminevyj chajnik massoj 200 gramm nalito 2 litra vody pri 20 kakoe kolichest

povest vremennyh let otkuda poshla zemlya russkaya pozhalusta otvette mne zavtra

anglijskij yazyk pomogite pozhalujsta ochen srochno nuzhno zavtra nado sdavat

x-4>=0...

1iz perechnya soedinenij vypishite formuly tolko kislotnyh oksidov i napishite fore8d67e3b9158d9044e126aa00391531e 56152

chto takoe vodyanoe obshestvo v geroj nashego vremeni

1 harakteristika tarasa bulby ego obraz harakter 2 ego otnosheniya k okruzhayu

anglijskij zadanie 11 i 12 ochen nuzhno pozhalujsta dayu mnogo punktov

sherlok holms pyostraya lenta napishite 3 voprosa po proizvedeniyu ochen srochno nuzh

рекомендуемые вопросы

Helpful Links

Helpful Social