с информатики Практические задания:
Вариант 1.
Задание 1.
Переведите числа в десятичную систему
а) 10110112 б) 5178; в) 1F16;
Задание 2.
Переведите число из десятичной системы в двоичную, восьмеричную и шестнадцатеричную
25910;
Задание 3.
Сложите числа, а затем проверьте результаты, выполнив соответствующие десятичные сложения:
а) 10111012 и 11101112; б) 4378 и 6758; в) 5A116 и 27F16;
Задание 4.
Вычтите:
а) 101002-1112 б) 2308- 1558 в) 3116- 1А16
Вариант 2.
Задание 1.
Переведите числа в десятичную систему, а затем проверьте результаты, выполнив обратные переводы
а) 101101112; б) 10108; в) ABC16;
Задание 2.
Переведите число из десятичной системы в двоичную, восьмеричную и шестнадцатеричную, а затем проверьте результаты, выполнив обратный перевод
42910;
Задание 3.
Сложите числа, а затем проверьте результаты, выполнив соответствующие десятичные сложения:
а) 10111012 и 1010112; б) 1658 и 378; в) 1А916 и 2ВC16;
Задание 4.
Вычтите:
а) 11012-10112 из б) 1028-478 в) 2А3016- F9E16
Вариант 3.
Задание 1. Переведите числа в десятичную систему, а затем проверьте результаты, выполнив обратные переводы:
а) 111000012; б) 12348; в) 101016;
Задание 2.
Переведите число из десятичной системы в двоичную, восьмеричную и шестнадцатеричную, а затем проверьте результаты, выполнив обратный перевод
88110;
Задание 3.
Сложите числа, а затем проверьте результаты, выполнив соответствующие десятичные сложения:
а) 101112 и 110112; б) 5758 и 1468; в) A5B16 и E7F16;
Задание 4.
Вычтите:
а) 100102-11112 б) 5678 -1018; в) B9216-19F16
Вариант 4.
Задание 1. Переведите числа в десятичную систему, а затем проверьте результаты, выполнив обратные переводы:
а) 10001102; б) 348; в) А416;
Задание 2.
Переведите число из десятичной системы в двоичную, восьмеричную и шестнадцатеричную, а затем проверьте результаты, выполнив обратный перевод
37210
Задание 3.
Сложите числа, а затем проверьте результаты, выполнив соответствующие десятичные сложения:
а) 10111112 и 1101012; б) 6178 и 4078; в)2 E916 и 5F16.
Задание 4.
Вычтите:
а) 1110112- 100012 б) 30018-16548 в)567816- ABC16
Вариант 5.
Задание 1. Переведите числа в десятичную систему, а затем проверьте результаты, выполнив обратные переводы:
а) 110100112; б) 12318; в) 1DE16.
Задание 2.
Переведите число из десятичной системы в двоичную, восьмеричную и шестнадцатеричную, а затем проверьте результаты, выполнив обратный перевод
61210.
Задание 3.
Сложите числа, а затем проверьте результаты, выполнив соответствующие десятичные сложения:
а)11001012 и 110102 б)5628 и 1278 и) А1216 и FDA16
Задание 4.
Вычтите:
а) 101002-11012 б)1238-568 в)A2D16-17F16
Type
ty=array[1..25] of integer;
Var
n,i:integer;
ar:ty;
procedure sortbutmeh(var ar:ty;n:integer);
Var
i,j,c:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if ar[i]<ar[j] then
begin
c:=ar[i];
ar[i]:=ar[j];
ar[j]:=c;
end;
end;
begin
randomize;
readln(n);
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(100);
write(ar[i]:4);
end;
sortbutmeh(ar,n);
writeln;
writeln('Array after sortbutmeh()');
for i:=1 to n do
write(ar[i]:4);
end.
//2)
Var
n:integer;
procedure ned(n:integer);
begin
case n of
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье');
end;
end;
begin
readln(n);
ned(n);
end.
//3)
Var
s:string;
function lengthbutmeh(s:string):integer;
begin
while pos(' ',s)<>0 do
delete(s,pos(' ',s),1);
lengthbutmeh:=length(s);
end;
begin
readln(s);
writeln(lengthbutmeh(s));
end.