Здравствуйте очень надо сделать 2 задания. 1. Переведите число 14 десятичной системы счисления в двоичную, восьмеричную, шестнадцатеричную и обратно в десятичную(подробно расписать)
2. Определите скорость работы модема, если за 256 сек. он может передать растровое изображение размером 640 на 480 пикселей. На каждый пиксель приходится 3 байта. (подробно расписать с дано) буду вам очень благодарна.
begin
var a:=MatrixRandom(7,7,0,9);
var k:=0;
for var i:=0 to 6 do begin
for var j:=0 to 6 do begin
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
Тестовое решение:
2 1 7 3 3 2 7
9 2 9 2 0 5 5
4 2 6 9 4 6 0
1 0 3 5 4 5 9
6 3 6 0 2 0 8
0 8 4 3 2 1 8
6 0 4 4 5 4 0
Кол-во элементов на [1,5]: 27
Вариант "совсем для школы"
const
n=7;
var
a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
Randomize;
k:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(10);
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
mark = int(input())
count = 0
if mark == 5:
count += 1
while (mark<=5 and mark>0):
mark = int(input())
if mark == 5:
count += 1
print(count)
Ввод/Вывод:1
1
5
5
5
5
5
-1
5