1. составить программу вывода на экран всех трехзначных чисел, кратных 9. (паскаль, тремя способами) 2. Составить программу вычисления суммы всех трехзначных чисел, кратных 17.(паскаль, тремя способами)

1)

Program Pr1;uses crt;var mas:array[100..999] of integer; i:integer;Beginclrscr;for i:=100 to 999 do mas[i]:=i; {1 sposob}for i:=100 to 999 do if mas[i] mod 9 =0 then writeln(mas[i]);i:=100; {2 sposob}while i<=999 do begin if mas[i] mod 9=0 then writeln(mas[i]); i:=i+1; end;i:=100; {3 sposob}repeatif mas[i] mod 9=0 then writeln(mas[i]);i:=i+1until i=999end.

2)

Program Pr1;uses crt;var mas:array[100..999] of integer; i,v:integer;Beginclrscr;v:=0;for i:=100 to 999 do mas[i]:=i; {1 sposob}for i:=100 to 999 do if mas[i] mod 17 =0 then v:=v+mas[i];writeln(v);i:=100; {2 sposob}v:=0;while i<=999 do begin if mas[i] mod 17=0 then v:=v+mas[i];; i:=i+1; end;writeln(v);i:=100; {3 sposob}v:=0;repeatif mas[i] mod 17=0 then v:=v+mas[i];i:=i+1until i=999;writeln(v);end.