составьте программу,выводящую на экран все трехзначные натуральные числа, делящиеся на 17 без остатка

1)var k:integer;beginfor k:=100 to 999 do if k mod 17 = 0 then writeln(k);end.2)var k: integer;begink:=100;while k mod 17 <> 0 do inc(k);while k<999 do begin writeln(k); k:=k+17; end;end.Решение:102119136153...952969986

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016begin  Range(100,999).Where(n->(n mod 17=0)).Printend.Результат выполнения программы:102 119 136 153 170 187 204 221 238 255 272 289 306 323 340 357 374 391 408 425 442 459 476 493 510 527 544 561 578 595 612 629 646 663 680 697 714 731 748 765 782 799 816 833 850 867 884 901 918 935 952 969 986