1)var a:integer;
begin
writeln('Введите число');
readln(a);
if a mod 2=0 then writeln('Число чётное')
else writeln('Число нечётное');
end.
2)var a,b:integer;
begin
writeln('Введите число');
readln(a);
b:= a div 100;
if b>9 then writeln('Ошибка') else begin
writeln('Первая цифра это');
writeln (b);
if b mod 3=0 then writeln('Первая цифра числа делится на 3')
else writeln('Первая цифра числа не делится на 3');end;
end.
128 = 2^7 значит 7 бит на символ
Общий обьем данных 7*180*2048 = 2 580 480 бит = 322 560 байт = 315 кб
16 путей
АБДИК, АБДЖК, АБВДИК, АБВДЖК, АБВЖК, АВДИК, АВДЖК, АВЖК, АГВДИК, АГВДЖК, АГВЖК, АГЕВДИК,АГЕВДЖК, АГЕВЖК, АГЕЖК, АГЕК
Сначала поменять букву н на букву д, затем букву о на букву е, дальше букву ч на букву н.