Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  10
Language: PASCAL
Code:
     Program Example ;
 uses crt;
  var k,n,p1,p2,s:integer;
begin
 Writeln ('Введите целое число');
  Readln (n);
  For k:=10 to 99 do
    begin
      p1:=k div 10;
      p2:=k mod 10;
      s:=p1+p2;
      if s=n then writeln(k);
    end;
    Readln
end.
          
Comments: