- var
- a, b, c: real;
- begin
- Writeln('Введите число a: ');
- Readln(a);
- b := 5;
- c := a / b;
- Writeln(c);
- end.
Исправлены как синтаксические ошибки, так и орфографические, а также поправлен стиль кода (вместо End end, вместо Var var и так далее), а также изменён тип integer к real из-за особенностей языка Pascal.
Компьютеры в XXI веке достигли пиковой популярности. Они используются везде, и это не преувеличение. Придя на любую работу мы столкнёмся с вопросом о знании компьютеров, смартфонов или других устройств. В магазине покупатель будет оплачивать покупку с помощью телефона, в институте мы будем записывать лекцию на ноутбуке, в офисе заполнять документы на компьютере. В моей профессиональной деятельности компьютер - это основа этой деятельности. Моя работа основана на знании устройства компьютера, его способностей, ведь я создаю "интерфейсы", через которые люди "общаются" с компьютером: производят вычисления, служат базой данных и так далее. Компьютеризирование в наше время протекает во всех областях, где человек только может работать. Поэтому через несколько лет мы вряд ли увидим какую-нибудь профессию, которая не требовала бы знания компьютеров или телефонов.
Ответ: 3) 17.
Ч - число.
1. "Ч больше 30", такого числа в ответах нет, поэтому берем второе условие. Которое после "или".
2. "(Ч = нечетное) и (Ч больше или равно 10)", тут подходит только 17. Так как 5 и 8 меньше 10, но одно из них нечетное. Но так как должны выполнятся два условия, это не подходит. 28 не подходит только потому, что оно четное.
Мощность алфавита (N) связана с весом символа (i) по формуле N=2^i.
Следовательно:
N=128, значит i=7 (2^7=128)
Информационный объем V
сообщения равен произведению количеству
<span>K </span>
символов в сообщении на информационный
вес <span>i </span>
символа алфавита<span>
V = K * i</span>
Каждый символ будет весить i=7 бит
600 × 7 = 4200 бит = 525 байт
Var
a:array[1..10]of integer;
i,n:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
write(a[i],'; ');
end;
for i:=1 to 9 do
if a[i]<a[10] then
begin
n:=i;
break;
end;
writeln;
write('Ответ: ');
if n>0 then writeln(a[n]) else writeln(n);
<span>end. </span>
