Решите задачу в паскале авс, пожалуйста, срочнооооо!!!!!
Найти сумму цифр трёхзначного числа введённого с клавиатуры
Ответы на вопрос
Ответил hvp1953
0
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.
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
0
Очень сложно, но спасибо
Новые вопросы