var
z: integer;
begin
randomize;
z:=random (1000) -500;
writeln (z);
if z mod 3=0 then writeln (' число делится на 3')
else writeln (' число не делится на 3')
end.
26+26=52, вот и всё,легко же
В одном множестве 74 элементов
В другом множестве 15 элементов
Максимальное количество элементов в их пересечении равно количеству элементов в меньшем множестве
Ответ: 15
var
I,U,R: real;
begin
write('Введите значение напряжения (U, В) = '); readln(U);
write('Введите значение сопротивления (R, Ом) = '); readln(R);
I:=U/R;
write('Сила тока (I, A) = ', I);
end.
Var g, i, j, m, n: integer;
begin
m := 100;
read(g);
for j := 1 to 8 do begin
if(g >= n) and (g <= m) then i := j;
if (j = 1) then n := n + 1;
n := n + 100;
m := m + 100;
end;
write(i);
end.