var k,s, p1, p2 : integer;
begin
write('s = ');
readln(s);
for k:= 10 to 99 do
p1:= k div 10;
p2:= k mod 10;
if p1+p2=s then writeln (k);
end;
end.
Пример:
s = 12
39
48
57
66
75
84
93
var k,s, p1, p2 : integer;
begin
write('s = ');
readln(s);
for k:= 10 to 99 do
begin
p1:= k div 10;
p2:= k mod 10;
if p1+p2=s then writeln (k);
end;
end.
Пример:
s = 12
39
48
57
66
75
84
93