Program N1;
var a,c1,c2,c3: integer;
begin
writeln('Введите число');
read(a);
c1:=a mod 10;
c2:=(a div 10) mod 10;
c3:=(a div 100) mod 10;
writeln('Кол-во сотен = ',c3);
writeln('Кол-во десятков = ',c2);
writeln('Кол-во единиц = ',c1);
end.
A Ø
B {x}
C {1,2..10}
R (множество действительных чисел)
R1 = input("R1 = ")
R2 = input("R2 = ")
R3 = input("R3 = ")
if ((R1 > R2) and (R1 > R3)):
print("1 круг больше всех")
elif ((R2 > R3) and (R2 > R1)):
print("2 круг больше всех")
elif ((R3 > R2) and (R3 > R1)):
print("3 круг больше всех")
program p
var
a,b,c,d : integer;
begin
readln(a),
readln(b),
readln(c),
readln(d),.
if (a<0) and (b/c=2) then witeln ((a+b+c+d)/4);
if (a*b*c*d>a+b+c+d) then begin witeln (a+b+c+d);witeln (a*b*c*d);end;
if (a*b*c*d>a+b+c+d)and((a<0) and (b/c=2)) then begin end else
begin
writeln(2*a) ;
writeln(2*b) ;
writeln(2*c) ;
writeln(2*d) ;
end;
end.
1)100110012 = 1∙2^7+0∙2^6+0∙2^5+1∙2^4+1∙2^3+0∙2^2+0∙2^1+1∙2^0 = 128+0+0+16+8+0+0+1 = 153
2)372 = 3∙8^2+7∙8^1+2∙8^0 = 192+56+2 = 250
3)372 = 3∙16^2+7∙16^1+2∙16^0 = 768+112+2 = 882