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.
256 символьный алфавит значит
2⁸=256
один символ имеет объём 8 бит
всего в сообщении
80*32*2=5120 символов
5120*8=<em><u>40960 бит занимает сообщение </u></em>
40960/1024/8=<em><u>5 килобайт занимает сообщение</u></em>
Ошибки могут встречаться в постановке задачи, формализации, разработке модели и даже в тестировании.
Когда ошибка обнаружена, естественно, надо устранять её