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.

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.

var a,b,c,s,p: real;

begin

  read(a,b,c);

  p: =(a+b+c)/2;

  s: =sqrt(p*(p-a)*(p-b)*(p-c));

  write(s: 0: 2);

end.

вроде так