<span>Краска А 300002
кг в 1 смену и 99998 кг во 2 смену</span>
<span>Краска Б 94376
кг в 1 смену и 5624 кг во 2 смену</span>
<span>Краска В 144498
кг в 1 смену и 55502 кг во 2 смену
</span><span>Затраты в сумме 7650000000 р.
</span>
Program n1;
var kord: array[1..6] of real;
st: array [1..3] of real;
i: integer;
begin
i:=1;
while i<=6 do
begin
write('введите координаты точки через пробел: ');
readln(kord[i],kord[i+1]);
i:=i+2;
end;
st[1]:=sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2]));
st[2]:=sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2]));
st[3]:=sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4]));
if (st[1]<(st[2]+st[3])) and (st[2]<(st[1]+st[3])) and (st[3]<(st[1]+st[2])) then write('P=',st[1]+st[2]+st[3]) else write('треугольник не существует');
end.
Begin
var a:=ReadArrInteger('Введите 10 чисел:',10);
var m:=a.Where(x->x<a.Max).Max;
writeln('Второй максимум = ',m);
end.
Пример:
Введите 10 чисел:
5
44
80
1
8
100
1
90
2
6
Второй максимум = 90
Складемо алгоритм переходу вулиці.
Алгоритм Перехід
1.Подивитися ліваоруч.
2.Якщо немає перешкоди,то йти до середини вулиці,інакше пропустити машини,йти до середини вулиці.
3.Подивитися праворуч.
4.Якщо немає перешкоди,то завершити перехід,інакше пропустити машини,завершити перехід.
Красный : входить в кабинет без разрешения учителя. Толкаться в дверях. Трогать разъёмы. Прикасаться к проводам питания. Приносить в класс компакт диски... Пытаться самостоятельно исправить проблемы. Включать игры которые не относятся к уроку. Работать грязными руками. Прикасаться к екрану или задней части монитора. Работать на компьютере во влажной одежде. Класть вещи на составные части компьютера. Удалять папки и файлы без разрешения учителя.
зеленый: все остальное.
2 задание
2, 3 , 1 , 4, 5, 7, 6, 8, 9.
