1) Найдите ошибочные числа в разных системах счисления: a) 176
b) 6А16
c) 718
d) 8С12
e) 515
f) 9410
g) 4F9

2) Переведите число 243 в следующие системы счисления:
Х6 =

Х8 =

Х16 =

Х5=

3) Переведите числа в десятичную систему счисления:

378 =

6916 =

1134 =

4) Выполните операцию сложения в разных системах счисления:

b) 1011011012 + 1100112

Решение:
5) Выполните операцию вычитания в разных системах счисления:

a) 1011000102 - 1011012

6) Найдите корень уравнения:

4310 + 17Х = 2135

👇

Открыть все ответы

Ответ:

Viviccompany

11.10.2022

Код: 1) program Mas; var i,ne,ch,n:integer; a:array [1..1000] of integer; begin read(n); randomize; for i:=1 to n do begin a[i]:=random(80)+21;write(a[i],' ');//Распечатка массива, увидешь правильно ли программа выполняет функци end; for i:=1 to n do begin if a[i] mod 2=0 then ch:=ch+1 else ne:=ne+1; end;writeln; writeln('Нечетные=',Ne); writeln('Четные=',Ch); end. 2)const n = 10; var A: array [ 1 .. n ] of integer; i, znachenie, count: integer; sred_arifm, sum: real; begin for i:=1 to n do begin write('a[,'i,']=');readln(a[i]); end; write('Введите значение:');readln(znachenie); sum:=0;count:=0; for i:=1 to n do if a[i] > znachenie then begin inc(count); sum:=sum+a[i]; end; sred_arifm:=sum/count; write('Среднее арифметическое ... =',sred_arifm:3:2); end.

4,8(42 оценок)

Ответ:

alenafgfgf

11.10.2022

Сами программы не проверял, если они правильные, то
2)
program zak; uses crt;
type danie=record
litri:string;
cislo:string;
end;
DanieVodi=file of danie;
var DV:DanieVodi;
D:danie;
i,n:integer;
begin clrscr;
assign(DV,'d:\azaz.txt');
rewrite(DV);
repeat
  writeln('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou'); readln(D.cislo);
  writeln('BBeDuTe KoJlu4ecTBo IIoTpa4eHou BoDbl');
  readln(D.litri);
if D<>'stop' then write(DV,D);
until D='stop';
close(DV);
readln;
end.

1)
uses crt;
type danie=record
litri:string;
cislo:string;
max,min:real;
end;
DannieVodi=file of danie;
var DV:DannieVodi;
D:danie;
i,n:integer;
cislo1:string;
begin clrscr;
assign(DV,'d:\azaz.txt');
reset(DV);
write('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou:');
read(cislo1);
while not eof(dv) do
begin
read(DV,D);

if min='0' then min:=StrToFloat(D.cislo);
if StrToFloat(D.cislo)<min then min:=StrToFloat(D.cislo);
if StrToFloat(D.cislo)>max then max:=StrToFloat(D.cislo);

if cislo1=D.cislo then
writeln('6blJlo IIoTpa4eHo "',D.litri,'" JluTpoB BoDbi');
end;

writeln('min=',min);
wtiteln('max=',max);

close(DV);
readln;
end.

Если это не учебная задача, то лучше сделать ее в Access. Там интерфейс красивый и дружелюбный легко получить.

4,4(55 оценок)

Это интересно:

Искусство-и-развлечения

20.02.2022

Как узнать своих персонажей: советы для писателей...

Здоровье

13.09.2021

Как избавиться от большого волдыря за короткий промежуток времени...

Кулинария-и-гостеприимство

06.01.2022

Мастер-класс: как правильно готовить спаржу на плите...

Здоровье