Написать программу, которая после ввода пользователем ...

Question

Написать программу, которая после ввода пользователем ...

Motes

Написать программу, которая после ввода пользователем трёхзначного числа вычисляет сумму его цифр.

Есть ответ

18.12.2022

469

Ответ

Answer 1 · 18.12.2022

var a,a1,a2,a3 : integer;

begin

readln(a);

a1:=a div 100;

a2:=(a mod 100) div 10;

a3:=(a mod 100) mod 10;

writeln(a1+a2+a3);

end.

а - само число, а1-число сотен, а2-число десятков, а3-число единиц

Написать программу, которая после ввода пользователем ...

Написать программу, которая после ввода пользователем трёхзначного числа вычисляет сумму его цифр.

Ответ

var a,a1,a2,a3 : integer; begin readln(a); a1:=a div 100; a2:=(a mod 100) div 10; a3:=(a mod 100) mod 10; writeln(a1+a2+a3); end. а - само число, а1-число сотен, а2-число десятков, а3-число единиц

var a,a1,a2,a3 : integer;

begin

readln(a);

a1:=a div 100;

a2:=(a mod 100) div 10;

a3:=(a mod 100) mod 10;

writeln(a1+a2+a3);

end.

а - само число, а1-число сотен, а2-число десятков, а3-число единиц