Написать в программе Паскаль: Дано целое число. Если оно двузначное, найти сумму его цифр.
Answers & Comments
Igorrock
Program zadanie; Var a,b:integer; Begin Writeln('Введите целое число'); Readln(a); If (a div 10>0) or (a div 10<0) Then begin b:=a div 10; a:=a mod 10; a:=a+b; Writeln('Сумма=',a); end; End.
Answers & Comments
Var a,b:integer;
Begin
Writeln('Введите целое число');
Readln(a);
If (a div 10>0) or (a div 10<0) Then
begin
b:=a div 10;
a:=a mod 10;
a:=a+b;
Writeln('Сумма=',a);
end;
End.