ДАЮ 25 БАЛЛОВ!!! ВЫПОЛНЯТЬ В PascalABC.NET!!!!! Дано x- шестизначное натуральное...

August 2022 1 3 Report

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

Answers & Comments

betru17 Var a, b, c, d, e, f, g, h, j:integer;
begin
write('Введите число: ');
read(a);
b := a mod 10;
c := (a div 10) mod 10;
d := (a div 100) mod 10;
e := (a div 1000) mod 10;
f := (a div 10000) mod 10;g := a div 100000;
h := b+c+d;
j := e+f+g;
writeln('Сумма первых трех чисел: ', j);
writeln('Сумма последних трех чисел: ', h);
end.

PIUKC спасибо!!!!!!!!!!!!!!!!!!!!!!!!!

PIUKC огромное!!!!!!!!!!!!!!!

PIUKC у меня есть ещё 2 задачки нерешённые с большим кол-ом баллов!

PIUKC https://znanija.com/task/25932153

PIUKC https://znanija.com/task/25932414

Answers & Comments

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

50 ballov pascal iz slova dostoprimechatelnost s pomoshyu komandy length cop

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

dayu 25 ballov vypolnyat v pascalabcnet zadacha dano x tryohznachnoe chis

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