3 задание
1)775,11 = 1000101111,1111 (2 система счисления)
2)271,34= 100001111,100010 (2с.с)
3)1566,28= 11000011110,1 (2с.с)
4)65,2= 1000001,1 (2с.с)
3 задание (2)
1001010 = 4А (16 с .с ) , 11,5 ( 8 с.с ) , 74 (10 с.с.)
1100111 = 67 (17 с.с. ) , 147 ( 8с.с.) 83 ( 10 с.с )
110101101,00011 = 1АD (16с.с.) 655 (8 с.с. ), 429 (10 с.с.)
111111100,0001 = 1FC,1 (16c.c) , 774,08 (8 c.c) 504,5 (10 с.с)
6210 = 1100001000010
Инвертирование каждого бита: 0011110111101 + 1 = 11110111110 = опять инвертируем 00001000001 + 1 = 1000010 = <span>66</span> в десятичной
Var x,y,z:longint;
begin
writeln(' TEST');
writeln(' выберите верный вариант ответа 1,2 или 3');
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
if (y=3)then write('ваша оценка 5');
if (y=2)then write('ваша оценка 3');
if (y=1)then write('ваша оценка 2');
end.
P.S.прошу проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале
Человек,любящий свою Землю,страну,родину,город,улицу,дом .....
Патриоты России : Ленин, Троцкий,Нахамкис,Абрам Борисович Гейро, Ленком и Фрунзе
Задание 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>