Решите задачу в паскале авс, пожалуйста, срочнооооо!!!!! Найти сумму цифр трёхзн...

buyko05 @buyko05

July 2022 2 4 Report

Решите задачу в паскале авс, пожалуйста, срочнооооо!!!!!
Найти сумму цифр трёхзначного числа введённого с клавиатуры

AnonimusPro

Verified answer

Program n1;
var a: integer;
begin
readln(a);
write((a mod 10)+(a div 100)+(a mod 100 div 10));
end.

buyko05 Огрооооооооомнеееееееейшееееееееееееееееее спааааааасибооооооооо

hvp1953 Var N: word; { Трехзначное число } t1, t2, t3: byte; { Цифры трехзначного числа }
begin write('Введите трехзначное число: '); readln(N); { <-- вводим трехзначное число } writeln; t3 := N mod 10; { <== третья цифра } N := N div 10; { <== число созданное первыми двумя цифрами } t2 := N mod 10; { <== вторая цифра } t1 := N div 10; { <== первая цифра } writeln('Сумма цифр: ', t1 + t2 + t3); readlnend.

buyko05 Очень сложно, но спасибо

Answers & Comments

Verified answer

lyudi kto sharit v russkom yazyke pomogite mozhete menya proverit dam 30 be61fcd00fa272dba22bf014c813bae9e 15229

lyudi kto sharit v russkom yazyke pomogite mozhete menya proverit dam 30 b

kogda byla intervenciya rechi pospolitoj v rossii

biologiya 6 klass pomogite srochnooooo dayu 20 ballov razmnozhenie kakih raste

reshite pozhalujsta zadachi po fizike 7 klass ya ih uzhe reshila mne nuzhno prosto sve

pzh napishite pragrammu v paskale 7 klass po etim zadacham dayu 30 ballov 1 za

zadacha na otrezke av otmechena tochka s gde as bolshe vs rasstoyanie mezhdu sered

agrarnaya reforma 1557g 1 prichiny 2 celi 3 meropriyatiya 4 itogi pzh srochno

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

Helpful Links

Helpful Social