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

1)

Program Pr1;

uses crt;

var mas:array[100 ... 999] of integer;

i:integer;

Begin

clrscr;

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}

repeat

if mas[i] mod 9=0 then writeln (mas[i]) ;

i:=i+1

until i=999

end.

2)

Program Pr1;

uses crt;

var mas:array[100 ... 999] of integer;

i, v:integer;

Begin

clrscr;

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;

repeat

if mas[i] mod 17=0 then v:=v+mas[i];

i:=i+1

until i=999;

writeln (v) ;

end.