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.
Answers & Comments
Verified answer
Program n1;var a: integer;
begin
readln(a);
write((a mod 10)+(a div 100)+(a mod 100 div 10));
end.
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.