// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
procedure Kirill(r:integer);
begin
var n:=0;
for var i:=1 to 9 do
for var j:=0 to 9 do
for var k:=0 to 9 do
if i+j+k=r then begin Write(i,j,k,' '); n+=1 end;
if n>0 then Writeln(NewLine,'Найдено чисел: ',n)
else Writeln('Таких чисел не существует')
end;
begin
var r:=ReadInteger('Введите число R:');
Kirill(r+3)
end.
Пример
Введите число R: 11
149 158 167 176 185 194 239 248 257 266 275 284 293 329 338 347 356 365 374 383 392 419 428 437 446 455 464 473 482 491 509 518 527 536 545 554 563 572 581 590 608 617 626 635 644 653 662 671 680 707 716 725 734 743 752 761 770 806 815 824 833 842 851 860 905 914 923 932 941 950
Найдено чисел: 70