Program n1;
Uses CRT;
Const n=10;
Var a,b: array[1..n] of integer;
i,a1,b1: integer;
s,s1: real;
begin
ClrScr;
Randomize;
For i:=1 to n do
begin
a[i]:=random(20);
b[i]:=random(20);
end;
For i:=1 to n do
begin
s:=a[i]*b[i]/2;
if s>s1 then begin s1:=s; a1:=a[i]; b1:=b[i]; end;
end;
Writeln('Naibolshya ploshad ',s,' y treugolnika s katetami ',a1,' i ',b1 );
readln
end.
список учительницы список Марины
Катя Арбузова Марина Яблочкина
Яша Арбузов
Коля Белкин Роберт Щукин
Лена Волкова Сережа Тополев
Дима Иволгин Валя Стрелкина
Валя Стрелкина Дима Иволгин
Серёжа Тополев Коля Белкин Лена Волкова
Роберт Щукин Яша Арбузов
Марина Яблочкина Катя Арбузова
Во вложении - файл с рабочей книгой MS Excel-2003. Не забудьте разрешить выполнение макросов и проекты с отсутствующей цифровой подписью.
Если все же захочется попробовать решить ребус КОТ+КОТ=ТОК, замените правую часть оператора присваивания для n1 выражением из правой части оператора присваивания для n2.
а) Функция возвращает длину строки, k = 10
б) Возвращает 4 символа начиная с 4-го из строки Str1, s = ' ned'
в) Удаляет из Str1 2 символа начиная с4-го, Str1 будет = 'denedeli'
г) Вставляет Str1 в Str2 начиная с третьего сивола, Str1 не изменится, Str2 будет = 'deden nedeli'
д) Возвращает позицию Str1 в Str2. В Str2 нет Str1, значит функция вернет 0