информатике актуальны двоичная и шестнадцатиричная системы счисления. В шестнадцатиричной системе счисления требуется 16 цифр. В качестве шестнадцатиричных цифр используются 10 десятичных цифр от 0 до 9, а также шесть первых букв латинского алфавита: A (10), B (11), C (12), D (13), E (14) и F (15). В двоичной системе счисления всего две цифры: 0 и 1. В соответствии с общим определением число, записанное в двоичной системе счисления, является суммой степеней двойки, соответствующих тем местам в записи числа, на которых стоят единицы. Например, число 10010111012 равно сумме 1+22+23+24+26+29 = 1+4+8+16+64+512 = 60510 .
<u><em>Задача №3</em></u><em><u> </u></em>
Var a,a1,a2,a3,a4:integer;
Begin
Readln(a);
a1:=a div 1000;
a2:=a div 100; a2:=a2 mod 10;
a3:=a mod 100; a3:=a3 div 10;
a4:=a mod 10;
if (a1+a2)=(a3+a4) then writeln('Условие задачи выполнено')
else writeln('Условие задачи не выполнено');
End.
<u><em>Задача №4</em></u><em><u> </u></em>
Var a,a1,a2,a3:integer;
Begin
Readln(a)
;a1:=a div 100;
a2:=a div 10; a2:=a2 mod 10;
a3:=a mod 10;
if (a1=a2) and (a2=a3) then writeln('Условие задачи выполнено')
else writeln('Условие задачи не выполнено');
End.
<u><em>Задача №5</em></u><u><em> </em></u>
Var a,a1,a2,a3,a4:integer;
Begin
Readln(a);
sqr(a);
if (a>=100) and (a<=999) then begin
a1:=a div 100;
a2:=a div 10; a2:=a2 mod 10;
a3:=a mod 10;
end;
if (a>=1000) and (a<=9999) then begin
a1:=a div 1000;
a2:=a div 100; a2:=a2 mod 10;
a3:=a mod 100;
a3:=a3 div 10;
a4:=a mod 10;
end;
if (a1=3) or (a2=3) or (a3=3) or (a4=3) then writeln('Условие задачи выполнено') else writeln('Условие задачи не выполнено');
<span>End.</span>
Дискета, кассета, лазерный диск... Что-то из этого. Дискеты были на 5 и 3,5 дюйма
Var a,b,c,d,n:integer;begin
writeln('введи номер цифры');
readln(d);
b:=0;
a:=1;
n:=0;
if d<0 then while d<0 do begin
writeln('введено неверное число ,попробуйте ещё раз');
readln(d);
end;
while c<2147483646 do begin
c:=a+b;
b:=a;
a:=c;
n:=n+1;
if (n=d) then c:=2147483647;if (n=d) then d:=b;
end;
writeln('это число ',b);
<span>end.</span>