Даны два натуральных числа - двузначное и трехзначное. Найти разность суммы цифр двузначного и трехзначного чисел.

Question

Информатика

Старемилиан

6 января, 05:46

Даны два натуральных числа - двузначное и трехзначное. Найти разность суммы цифр двузначного и трехзначного чисел.

+3

Ответы (1)

Знаете ответ на вопрос?

Николаич · Answer 1

Program pr;

var a, b, s1, s2:integer;

begin

writeln ('Введите двузначное число') ;

readln (a) ;

writeln ('Введите трехзначное число') ;

readln (b) ;

s1:=a div10+a mod 10;

s2:=b div100+b mod10 + (b div10) mod10;

writeln ('Разность суммы цифр двузначного и трехзначного чисел равна ', s1-s2) ;

end.