1- будет 11010011<span>2
2- </span>62 = 111110<span>2
3- </span>122 = 1111010<span>2
Числа я написал, ответ думаю сможешь написать. Сказать как переводить?
Если тебе надо перевести из десятичной в двоичную, ты делишь это число столбиком на 2, каждый раз у тебя будет оставаться остаток 0 или 1, это числа ты записываешь и в конце деления те числа (остатки) ты пишешь задом на перёд. Например десятичное число 11 переводим в двоичную:
11делим на 2 = 5 ( остаток 1) записываем 1
5делим на 2 = 2 ( остаток 1 ) записываем 1
2 делим на 2 = 1 ( остаток 0 ) записываем 0
1 делим на 2 = 0 (остаток 1) записываем 1
получили 1101, переворачиваем, получаем 1011-это "11" в двоичной системе
</span>
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
var c, w: integer;
procedure check;
begin
var (a, b) := (Random(0, 20), Random(0, 20));
Print($'{a}*{b}=');
if a * b = ReadInteger then begin inc(c); Println('Правильно') end
else begin inc(w); Println('Неправильно') end;
end;
procedure res;
begin
Println($'Задано вопросов {c+w}');
Println($'Правильных {c}({(c*100)/(c+w):f1}%)');
Println($'Неправильных {w}({(w*100)/(c+w):f1}%)');
end;
begin
var start := true;
while start do
begin
Println('Проверим?(0/1)');
if ReadInteger = 0 then
begin start := false; res; end
else check;
end;
end.
Пример в приложении.
1) var n, odd, even, i, a: integer;
begin
odd:=0;
even:=1;
writeln ('Введите число N');
read(N);
writeln('Введите N целых чисел');
for i:=1 to N do
begin
read(a);
if (a mod 2 = 0) then even:=even*a
else odd:=odd+a;
end;
writeln('Произведение чётных чисел равно ', even);
writeln('Сумма нечётных чисел равна ', odd);
end.
2)var N, plus, minus, i: integer;
a: real;
begin
plus:=0;
minus:=0;
writeln ('Введите число N');
read(N);
writeln('Введите N чисел');
for i:=1 to N do
begin
read (a);
if(a > 0) then plus:=plus+1;
if (a < 0) then minus:=minus+1;
end;
writeln('Количество положительных чисел равно ', plus);
writeln('Количество отрицательных чисел равно ', minus);
if (plus<minus) then writeln ('Отрицательных больше чем положительных на ', minus-plus);
if (plus>minus) then writeln ('Положительных больше чем отрицательных на ', plus-minus);
if (plus=minus) then writeln ('Количество положительных равно количеству отрицательных');
end.
В языке Pascal тип данных string предназначен для хранения строковых величин.
Он опоздал на урок-исстинное
Он не делал задания-ложное
ПЖ отметь как лучший
