<span>обработки информации.</span>
3 клавиатуры * 2 мыши * 2 гарнитуры = 12 способов
Задание 2.
Vi:
1. 109%.
2. 76%.
3. 88%.
4. 84%.
5. 116%.
6. 87%.
7. 111%.
8. 110%.
9. 99%.
10. 101%.
11. 100%.
12. 112%.
Максимум: 12. Декабрь - 112%.
Среднее: 92%.
Oi:
1. Нет - -9%.
2. Есть - 24%.
3. Есть - 12%.
4. Есть - 16%.
5. Нет - -16%.
6. Есть - 13%.
7. Нет - -11%.
8. Нет - -10%.
9. Есть - 1%.
10. Нет - -1%.
11. Нет - 0%.
12. Нет - -12%.
Максимум: 2. Февраль - 24%.
Среднее: 0.6%.
Первое не могу сделать, так как не понимаю sin и cos.
Program p1;
var i:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
writeln('Введите ',i,' число: ');
read(a[i]);
end;
for i:=1 to 10 do
if (a[i] mod 3)=0 then writeln('Число: ',a[i]);
<span>end.</span>
Program sp;
var
n, x: integer;
1: label;
begin
n:= 13;
label main;
writeln(n);
writeln('Можно взять 1, 2 или 3 спички. Ваш ход');
readln(x);
n := n - x;
if n > 0 then
begin
writeln('Мой ход. Я возьму', 4 - x);
n := n - (4 - x);
end
end
if n <= 0 then
writeln('Вы проиграли!')
else
goto 1;
end
end.