Ответ:
var max,n:integer;
c,nom:byte;
begin
max:=-1000;
for c:=1 to 4 do
begin
writeln('Введите число под номером ', c );
readln(n);
if n>max then begin
max:=n;
nom:=c;
end;
end;
writeln('Максимальное число из введенных - 'max);
end.
Объяснение:
PascalABC.NET 3.3
program journal;
var
sum, mark, count, n: integer;
check: boolean;
begin
sum := 0;
check := true;
count := 0;
writeln('Введите количество оценок: ');
readln(n);
if (n > 0) then begin
while (count <> n) do
begin
readln(mark);
inc(sum, mark);
if (mark < 4 ) then check := false;
inc(count);
if (count = n) then writeln('Ввод окончен!');
end;
end else writeln('Error!');
if ((check) and (sum > 0) and (n > 0)) then writeln('Ты молодец!');
end.
1) 8=2³, поэтому для хранения палитры требуется 3 бита. И, что то же самое, глубина цвета равна 3 битам.
2) Для хранения информации о цвете одной точки требуется 2 бита, поскольку 4=2². А для 100×100 точек потребуется 100×100×2=20000 бит = 20000/8 = 2500 байт. Это и есть информационный объем.
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
Writeln(ReadlnString('n=').Count(x->x='0'),' нулей');
end.
<u><em>Тестовое решение:</em></u>
n= 5350004533300045645600
8 нулей
//PascalABC.NET v3.3 1633
var arr: array [1..6, 1..6] of integer;
begin
for var i:=1 to 6 do
for var j:=1 to 6 do
arr[i, j]:=random(-49, 50);
writeln('Исходный массив: ');
for var i:=1 to 6 do
arr[i].PrintLn(', ');
var num:=0;
for var i:=1 to 6 do
if arr[i, 2] < 0 then num += 1;
writeln('Количество отрицательных элементов второго столбца: '+num);
for var i:=1 to 6 do
for var j:=1 to 6 do
if arr[i, j] > 0 then arr[i, j]:=-49;
writeln('Новый массив: ');
for var i:=1 to 6 do
arr[i].PrintLn(', ');
end.