Автомобиль-двигатель,кузов, бензобак салон
молекула воды-молекулы водорода и кислорода.
компьютер-процессор монитор,клавиатура
магазин-касса,полки, продукты
Система-планеты звёзды астероиды
семья-родители дети.
футбольная команда капитан тренер игроки вратарь.
армия полководец командир артиллерия солдаты
Компьютер является системой, так как он состоит из устройств, связанных между собой
Var
n, i, p1, p2: integer;
begin
read(n);
p2 := n mod 10;
while n > 0 do
begin
if(n div 10 <= 0) then p1 := (n mod 10);
n := n div 10;
end;
write(p2 / p1);
end.
//Pascal
var
Arr: array [1..255] of byte;
i, N, A, B: byte;
begin
randomize; //В PascalABC.NET можно убрать
write('Введите количество элементов массива: '); readln(N);
writeln;
writeln(' ***Исходный массив*** ');
for i := 1 to N do
begin
Arr[i] := random(50);
write(Arr[i], ' ');
end;
writeln; writeln;
write('Введите диапазон A и B: '); readln(A, B);
writeln; writeln('Номера элементов');
for i := 1 to N do
if ((Arr[i] >= A) and (Arr[i] <= B)) then
write(i, ' ');
writeln;
readln;
end.