Помогите, какой вид связи это?

Знания

Информатика

1 ответ:

rokkinpo4 года назад

0 0

связь многим ко многим потому что разные типы под одним id

Читайте также

1. Вычислить длины медиан треугольника, заданного длинами сторон.

Артур [117]

А ЯКИ ДОВЖИНИ СТОРИН ТРИКУТНИКА?????????

0 0

4 года назад

Прочитать ещё 2 ответа

Сколько Кбит информации содержит сообщение объёмом 2 в 17 степени байт

ostap958 [42]

Это будет 2 в 20й степени бит, то есть 1024 кбита.

0 0

3 года назад

Нужно решить любые две задачи в ABC Pascal, желательно 1 и 3

Дит6 [52]

Задание 1
var i : integer;
begin
for i := 4 to 9 do writeln(i,'*',i ,' - ',i*i);
end.

Задача 3
Var n,m,p,k:integer;
Begin
write('n=');
read(n);
m:=n;k:=0;
while m<>0 do
begin
p:=m mod 10;
K:=K+1;
m:=m div 10;
end;
writeln('k=',k);
end<span>.
</span>

0 0

4 года назад

Помогите пожалуйста!!!3 задание

PionaJ [15]

<h3>PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>

begin

var s := ReadlnString;

s.MatchValues('[.,:;\-()!?"]').Count.Println; // №1

(s.MatchValues('\d').Count > 0).Println; // №2

(s.MatchValues('(.)\1').Count > 0).Println; // №3

end.

0 0

3 года назад

Помогите !!написать программу которая для 3х значного числа если оно четное то возводит в квадрат ,а если не четное то находит с

Надеда

Var
A: integer;

begin
readLn(A);
if (A mod 2 = 0) then
begin
A := sqr(A);
WriteLn('Квадрат введённого числа равен: ', A);
end else
begin
A := ((A mod 100) div 10) + (A mod 10) + (A div 100);
writeLn('Сумма цифр введённого числа равна: ', A);
end;
end.

0 0

4 года назад