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.
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.