КИНЬТЕ ФАЙЛ В ОТВЕТЫ Запустите текстовый редактор. 2. На первой странице документа напишите названия трех рек Казахстана. Например, Тобол Иртыш Сырдарья 3. Найдите краткую информацию про каждую из рек, используя Интернет, и поместите ее на следующие три страницы документа. 4. Названия рек на первой странице оформите как гиперссылки и свяжите с соответствующими страницами документа. 5. На каждой странице организуйте обычную сноску, в которую поместите адрес веб-сайта, откуда была взята информация. 6. * Проверьте работо гиперссылок и сносок.

Программа:

type Student=record

 FIO:string;

 year:integer;

 obj:string;

 mark:integer;

end;

var

 i:integer;

 objec:string;

 s: array [1..3] of Student;

BEGIN

 // 1-ый студент

 s[1].FIO:= 'Петров П.П.';

 s[1].mark:= 3;

 s[1].obj:= 'Математика';

 s[1].year:= 1997;

 // 2-ой студент

 s[2].FIO:= 'Иванов И.И.';

 s[2].mark:= 5;

 s[2].obj:= 'Математика';

 s[2].year:= 1999;

 // 3-ий студент

 s[3].FIO:= 'Сидоров С.С.';

 s[3].mark:= 5;

 s[3].obj:= 'Математика';

 s[3].year:= 1998;

 write('Введите предмет: ');

 readln(objec);

 writeln('Список студентов по заданным параметрам:');

 for i:=1 to 3 do

   if (s[i].obj = objec) and (s[i].mark = 5) then

     writeln(s[i].FIO, ' - ' , s[i].year)

END.

Объяснение:

 var i,s:integer;

 begin

   i:=10;s:=0;

   for i:=10 to 99 do

   if i mod 2<>0 then s:=s+i;

  writeln('Сумма нечетных 2-значных чисел(for)',s);

  readln;

  i:=10;s:=0;

  while i<=99 do

    begin

      if i mod 2<>0 then s:=s+i;

      i:=i+1;

    end;

    writeln('Сумма нечетных 2-значных чисел(while)',s);

    readln;

    i:=10;s:=0;

   repeat

    if i mod 2<>0 then s:=s+i;

    i:=i+1;

   until i>99 ;

   writeln('Сумма нечетных 2-значных чисел(repeat)',s);

   readln;

end.