список учительницы список Марины
Катя Арбузова Марина Яблочкина
Яша Арбузов
Коля Белкин Роберт Щукин
Лена Волкова Сережа Тополев
Дима Иволгин Валя Стрелкина
Валя Стрелкина Дима Иволгин
Серёжа Тополев Коля Белкин Лена Волкова
Роберт Щукин Яша Арбузов
Марина Яблочкина Катя Арбузова
Program abc;
var a, b, c, max: integer;
begin
read (a, b, c);
if a>b then
a:=max
else
b:=max;
if c>max then
c:=max;
writeln ('Максимальное число__', max);
end.
Второй в один вопрос еще))0).
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandomReal(n,1,50);
a.Println;
var m:=a.Min;
if m<>0 then
for var i:=0 to n-1 do a[i]/=m;
a.Println
end.
<u>Тестовые решения:</u>
n= 5
15.9562486982701 12.6295463515583 11.5262675264507 24.1544637978796 45.6158542677834
1.38433787534893 1.09571865502651 1 2.09560152429653 3.95755643907304
n= 10
14.0622929614327 16.5069398081428 13.2300360101415 45.449448110745 46.6062807271286 41.3808015088461 21.5502972461052 20.3082026570608 6.33108078377837 25.0892608808769
2.22115203417771 2.60728623941069 2.0896962875659 7.17878189569095 7.36150466545052 6.53613544386811 3.40388915922883 3.20769918290964 1 3.96287170196298
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,1,50);
a.Println;
var m:=a.Max;
if m<>0 then
for var i:=0 to n-1 do a[i]+=m;
a.Println
end.
<u>Тестовые решения:</u>
n= 8
37 3 10 29 39 31 40 10
77 43 50 69 79 71 80 50
n= 10
9 47 40 19 20 37 21 39 26 31
56 94 87 66 67 84 68 86 73 78
В ячейке Б2 через мастер функций забиваешь 2 функции: ЕСЛИ ДЕЛИТСЯ НА 2, ТО 1-ПРАВДА 0-ЛОЖЬ, ЕСЛИ ДЕЛИТСЯ на 10, ТО 2- ПРАВДА 0-ЛЛЖЬ.. Копируешь до 25 ячейки, у тебя будут цифры 0, 1, 2. дальше в любых ячейках создаешь
функцию СЧЕТЕСЛИ, выделяешь диапазон (Ячейку с Б2 по Б25). Компа рядом нет, поэтому не так подробно.
Переведем числа в десятичную систему:
= 501
(F=15)
Отсюда К=502
Переведем в троичную