1. Машина. Сколько машин существуют на свете? Оооочень много.
2. Береза. Тот же случай
6. Операционная система. Это не личное название, поэтому оно и общее.
7. Клавиатурный тренажер.
N = 167(8) = <span>119(10)
M = 79(16) = </span>121(10)
K=120(10) -> 1111<span>000(2)
Ответ - 4.
</span>
<span>Решение:
</span>program zadacha_1;
const MaxM = 10;
h = 0.2;
type myArray = Array[1..MaxM] of real;
var A:myArray; //Результаты будем записывать сюда
x, y:real;
i: integer;
begin
x := 2;
while ((x >= 2.0) and (x <= 4.0)) do begin
for i:=1 to MaxM do begin
y := 3*cos(x/2)+4;
A[i] := y;
x := x + h;
end;
end;
for i:=1 to MaxM do //Вывод массива
write(A[i]:20);
<span>end.</span>
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
SeqGen(ReadInteger('Кол-во='),2,x->3*x-1).Println
end.
<u><em>Тестовое решение:</em></u>
Кол-во= 10
2 5 14 41 122 365 1094 3281 9842 29525
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ArrRandom(20,-10000,10000); a.Println;
Writeln('Кол-во пар: ',a.Pairwise.
Where(x->((x.Item1+x.Item2) mod 3=0) and
((x.Item1+x.Item2) mod 9<>0)).Println.Count)
end.
<u><em>Тестовое решение:</em></u>
-1932 -9879 3600 -6873 6098 -308 -3663 3180 257 4339 -778 -1245 -9361 -7036 -2972 5592 4844 87 -980 -4458
(-1932,-9879) (-9879,3600) (3600,-6873) (6098,-308) (-3663,3180) (257,4339) (4339,-778)
Кол-во пар: 7
DIM a(1 TO 10)
CLS
RANDOMIZE (TIMER)
FOR i = 1 TO 10
a(i) = CINT(10 * RND + 11)
PRINT a(i);
NEXT i
PRINT
FOR i = 1 TO 10
a(i) = a(i)*a(10)
PRINT a(i);
NEXT i
PRINT