ДАЮ 25 БАЛЛОВ!!! ВЫПОЛНЯТЬ В PascalABC.NET!!!!! задача. Дано x

July 2022 1 11 Report

ДАЮ 25 БАЛЛОВ!!! ВЫПОЛНЯТЬ В PascalABC.NET!!!!! задача. Дано x - трёхзначное число, необходимо найти 2 числа путём циклического сдвига и сумму исходного и полученных чисел. ПОЖАЛУЙСТА!!!!!!!!!!

Answers & Comments

petyaGavrikov

Verified answer

Var x,x1,x2:integer;
begin
readln(x);
x1:=(x mod 100)*10+(x div 100);
x2:=(x1 mod 100)*10+(x1 div 100);
writeln(x1,' ',x2);
writeln(x+x1+x2);
end.

Пример:
516
165 651
1332

2 votes Thanks 1

PIUKC спасибо!!!!!!!!!!! вот ещё пожалуйста https://znanija.com/task/25932414

Answers & Comments

Verified answer

python srochnooo vyrezhte dva pervyh simvola simvolnoj stroki i pomestite ih v

50 ballov pascal iz slova dostoprimechatelnost s pomoshyu komandy length cop

dayu 25 ballov vypolnyat v pascalabcnet dano x shestiznachnoe naturalnoe

reshite pozhalujsta v paskale najti summu cifr celogo chisla bolshih pyati 7 kl

kakih ostrovov dostigla flotiliya beringa v 1733 godu

pomogititeeeeeee hot chto nibud

python masha ochen delovaya devochka segodnya ona dolzhna shodit v dva magazina

v protokole sportivnyh sorevnovanij u sudi zapisano vremya starta sportsmena i v

najti bolshee iz 4 yoh chisel pascal abc net

50 ballov peredelat chtoby uporyad po vozvrastaniyu nach s vystavki mini

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

Helpful Links

Helpful Social