К примеру a,b,c - размеры рации
d,e,f - чемодана
размеры упорядочены по возрастанию(УПОРЯДОЧЬ!)
тогда если a>=d and b>=e and c>=f
не Помещается
иначе да
просто с телефона каким-то образом обрезалось всё что я писал
Program pr;
uses crt;
Var k,a,sum:integer;
Begin
Writeln('Vvedite posledovatelnost');
k:=0;
readln(a);
sum:=a;
While a<>0 do
Begin
readln(a);
sum:=sum+a;
if (a mod 2=0) and (a mod 3=0) then k:=k+1;
end;
Writeln('k=',k);
Writeln('sum=',sum);
readln;
end.
В скобках систмы счисления. 8в1 это восемь в первой степени
3.
135(8) = 5*8в0 + 3*8в1 + 1*8в2 = 5+24+64=93
4.
110001001111 = делим на тетраеды
1100 0100 1111
переводим каждую отдельно в десятичную
1100 = 0*2в0 + 0*2в1 + 1*2в2 * 1*2в3 = 0+0+4+8 = 12
12 в 16тиричной систме записывается буквой С
0100 = 0*2в0 + 0*2в1 + 1*2в2 + 0*2в3 = 0+0+4+0 = 4
в 16тиричной записывается как 4
1111 = 1*2в0 + 1*2в1 + 1*2в2 + 1*2в3 = 1+2+4+8 = 15
в 16тиричной это записывается как F
Итого число получается - С4F
5.
110001001111(2) = 1*2в0 + 1*2в1 + 1*2в2 + 1*2в3 + 1*2в6 + 1*2в10 + 1*2в11 = 1+2+4+8+64+1024+2048 = 3151
//1a
Var
i,x1,x2:integer;
begin
for i:=10 to 99 do
begin
x1:=i mod 10;
x2:=i div 10;
if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i);
end;
end.
//1б
Var
i,x1,x2:integer;
begin
for i:=10 to 99 do
begin
x1:=i mod 10;
x2:=i div 10;
if x1+x2+sqr(x1+x2)=i then writeln(i);
end;
end.
//2
Var
i,n,a,k1,k2:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a);
if a<1985 then k1:=k1+1;
if a>1990 then k2:=k2+1;
end;
writeln('Родившиеся до 1985:',k1);
writeln('Родившиеся после 1990:',k2);
end.
. ............................