var
a,b,c,d:real;
z,x:integer;
begin
z:=0;
x:=0;
readln(a);
readln(b);
readln(c):
readln(d);
if (b mod a)=0 then writeln('a делитель числа b');
if (с mod a)=0 then writeln('a делитель числа с');
if (в mod a)=0 then writeln('a делитель числа в');
if a>b then z:=z+1;
if b>c then z:=z+1;
if c>d then z:=z+1;
if z=3 then writeln('числа расположены по убыванию');
z:=0;
if a mod 5=0 then x:=x+1;
if a mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if b mod 5=0 then x:=x+1;
if b mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if c mod 5=0 then x:=x+1;
if c mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if d mod 5=0 then x:=x+1;
if d mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
writeln(z,'чисел делятся на 5 и 7 ');
z:=0;
if a<=7 then z:=z+1;
if b<=7 then z:=z+1;
if c<=7 then z:=z+1;
if d<=7 then z:=z+1;
if z>0 then writeln('есть числа больше или равные 7')
end.
предпоследнее не могу прочесть задание, так что сорри.
26 букв и 10 цифр составляют алфавит мощностью 36 знаков. Если кодировать их числами от 0 до 35, а 2⁵ < 35 < 2⁶, то для одного знака потребуется до 6 бит. По условию "Каждый символ кодируется <u>одинаковым</u> и минимально возможным количеством бит", поэтому принимаем размер 6 бит. Длина номера 7 символов и суммарно они займут 7×6 = 42 бита. Но по условию номер должен занимать целое число байт. В байте 8 бит, тогда для номера нужно отвести 42/8 = 6 байт с округлением до целых в большую сторону. 20 номеров потребуют для хранения 6×20 = 120 байт.
<u><em>Ответ:</em></u> 120 байт
<span>program if1;
var
a: integer;
begin
read(a)
;
if a > 0 then Inc(a);
write(a);
end
<span>может быть это ?.</span></span>
Что такое информатика? Информатика — это основанная на использовании компьютерной техники дисциплина, изучающая структуру и общие свойства информации, а также закономерности и методы её создания, хранения, поиска, преобразования, передачи и применения в различных сферах человеческой деятельности. Термин "информатика" (франц. informatique) происходит от французских слов information (информация) и automatique (автоматика) и дословно означает "информационная автоматика". Широко распространён также англоязычный вариант этого термина — "Сomputer science", что означает буквально "компьютерная наука".