М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
anastasiya11лет
anastasiya11лет
08.06.2023 02:01 •  Информатика

Почему выдает (встречно 'until', а ожидалось ';') Var a:array[1..50] of byte;
n,p, i,k,m,j,x,y,z: integer;
begin
writeln('Введите количество элементов');
readln(p);
repead;
n:=4;
for i:=n downto 1 do begin
a[i]:=p mod 10;
p:= p div 10;
end;
For i:=1 To n-1 Do Begin
k := i;
For j := i + 1 To n Do
If a[j] >= a[k] Then
k := j;
m := a[i];
a[i] := a[k];
a[k] := m;
end;
x:=a[1]*1000+a[2]*100+a[3]*10+a[4];
For i := 1 To N - 1 Do Begin
k := i;
For j := i + 1 To n Do
If a[j] <= a[k] Then
k := j;
m := a[i];
a[i] := a[k];
a[k] := m;
end;
y:=a[1]*1000+a[2]*100+a[3]*10+a[4];
z:=x-y;
until z=p;
writeln(z);

end.

👇
Ответ:
yerizhevasofa
yerizhevasofa
08.06.2023

Var a:array[1..50] of byte;

n,p, i,k,m,j,x,y,z: integer;

begin

writeln('Введите количество элементов');

readln(p);

repeat;  - обратите внимание, что Вы написали repead, хотя нужно repeat.

n:=4;

for i:=n downto 1 do begin

a[i]:=p mod 10;

p:= p div 10;

end;

For i:=1 To n-1 Do Begin

k := i;

For j := i + 1 To n Do

If a[j] >= a[k] Then

k := j;

m := a[i];

a[i] := a[k];

a[k] := m;

end;

x:=a[1]*1000+a[2]*100+a[3]*10+a[4];

For i := 1 To N - 1 Do Begin

k := i;

For j := i + 1 To n Do

If a[j] <= a[k] Then

k := j;

m := a[i];

a[i] := a[k];

a[k] := m;

end;

y:=a[1]*1000+a[2]*100+a[3]*10+a[4];

z:=x-y;

until z=p;

writeln(z);

end.

4,5(19 оценок)
Открыть все ответы
Ответ:
yagunovaliza
yagunovaliza
08.06.2023

1) 

23 + 75 = 

Сложить 3+5 = 10 - 0 пишем, 1 десяток запоминаем

                 7 + 2 = 11 , 1 запоминали значит 11+1=12

ответ: 23 + 75=120

120 из 8 системы переведем в двоичную:

 120 переведем в 10 систему счисления:

120 = 1*8^2 + 2*8^1 + 0*8^0 = 64 + 16 +0 = 80

80 переведем из десятичной в двоичную:

80/2=40 ост 0

40/2=20 ост 0

20/2=10 ост 0

10/2=5 ост 0

5/2=2 ост 1

2/2=1 ост 0

число 120(8) = 1010000(2)

 

2 задание:

14 + 3В = 4F(16)

4F = 4*16^1 + F*16^0 = 64 + 15 = 79 - в десятичной системе счисления

Переведем в 2 систему:

79/2 = 39 ост 1

39/2 = 19 ост 1

19/2=9 ост 1

9/2=4 ост1

4/2=2 ост 0

2/2=1 ост 0

4F(16) = 1001111(2) 

 

4,5(11 оценок)
Ответ:
larisa2912200
larisa2912200
08.06.2023

Дано:

N1 = 256 цветов

N2 = 65536 цветов

Найти:

V1<V2 во сколько раз

1) N1 = 2^i1

256 = 2^8

i1 = 8 бит глубина кодирования 1 пикселя, если использовать палитру 256 цветов

2) N2 = 2^i2

65536 = 2^16

i2 = 16 бит глубина кодирования 1 пикселя, если использовать палитру 65536 цветов

3) пусть S - количество пикселей в изображении - оно одинаково для обеих палитр (по условию задачи рисунок был один и тот же)

тогда

V1 = S * i1, следовательно S = V1 / i1

V2 = S * i2, следовательно S = V2 / i2

V1/i1 = V2/i2

V1/8 = V2/16

V2 * 8 = V1 * 16

Делим обе части на 8

V2 = 2*V1

Значит V2 > V1 в два раза

ответ: информационный объем файла увеличился в два раза.

4,7(91 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ