нужна Трёхзначное число можно представить в виде следующей суммы: x = a·100 + b·10 + c, где а, b, с - цифры числа.

Программа нахождения суммы цифр вводимого с клавиатуры целого трёхзначного числа: (на его основе сделать)

program n_4;

var x, a, b, c, s: integer;

begin

writeln ('Нахождение суммы цифр трёхзначного числа');

write ('Введите исходное число>>');

readln (x);

a:=x div 100;

b:=x mod 100 div 10;

c:=x mod 10;

s:=a+b+c ;

writeln ('s= ', s)

end.

udovkinayulia1    2   28.04.2020 19:48    14