Так как код ASCII имеет 256 символов, то по правилу
один символ кодируется 8 битами
8 бит = 1 байту - значение одного символа
символов
≈
Ответ: 2
Program TablMul;
Const Size = 7;
Var
Ball: array[1..Size] of real;
Ocenka: array[1..Size] of integer;
Counter: integer;
Begin
Counter := 1;
while (Counter <= Size) do
begin
Write('Введите балл ', counter, ' ученика: ');
Readln(Ball[Counter]);
Counter := Counter + 1;
end;
Counter := 1;
Repeat
if (Ball[Counter] > 90) then
Ocenka[Counter] := 5
else if (Ball[Counter] >= 75) and (Ball[Counter] < 90) then
Ocenka[Counter] := 4
else if (Ball[Counter] >= 50) and (Ball[Counter] < 75) then
Ocenka[Counter] := 3
else
Ocenka[Counter] := 2;
Counter := Counter + 1;
Until (Counter > Size);
Writeln();
for var i := 1 to Size do
Writeln('Оценка ', i, ' ученика: ', Ocenka[i]);
End.
Const
R=14;
var
i,k:integer;
W:array[1..R] of longint;
begin
Write('Введите число членов последовательности (1-',R,'): ');
Readln(k);
if (k<1) or (k>R) then Writeln('Вы ввели неверное значение')
else begin
Write('Члены последовательности: 1');
w[1]:=1;
for i:=2 to k do
begin
w[i]:=5*w[i-1];
Write(', ',w[i])
end;
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Введите число членов последовательности (1-14): 14
Члены последовательности: 1, 5, 25, 125, 625, 3125, 15625, 78125, 390625, 1953125, 9765625, 48828125, 244140625, 1220703125
{В двухмерном массиве найдите количество и произведение не кратных 4
трехзначным элементов k-го столбца}
var
C:array [1..100,1..100] of integer;
p: longint;
kol, k:byte; {кол-во отрицательных эл-тов}
N,M,i,j:byte;
begin
writeln('введите размерность массива (кол-во строк, столбцов)');
readln(N,M);
writeln('введите элементы двумерного массива');
for i:=1 to N do
for j:=1 to M do
read(C[i,j]);
writeln('введите номер столбца');
readln(k);
kol:=0; P:=1;
for i:=1 to N do
if (C[i,k] mod 4<>0) and (C[i,k]>=100) and (C[i,k]<1000) then {не кратно 4, трехзначное}
begin
P:=P*C[i,k];
kol:=kol+1
end;
writeln('kol=', kol:7);
writeln('произведение=', P:5)
end.