Здесь 4 символа, каждый символ состоит из 8 цифр
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.
Begin
write ('1,2,3,4,5');
end.
begin
write ('2,4,6,8,10,12,14,16,18,20');
end.
begin
write ('15,17,19,21,23,25,27,29,31,33,35');
Информационный процесс - поиск информации
Решение в приложенном файле.
Ответ 78