Question

составить двузначные числа, состоящее из первой справа и предпоследней слева цифр восьмизначного числа
В ПАСКАЛЕ

Answer 1

program divc;

uses

crt;

var

ch, lc, pc, pch, vch: Integer;

begin

writeln('Введите целое восьмизначное число:');

readln(ch);

if (((ch div 10000000) > 0) and ((ch div 10000000) < 10)) then

begin

pc := ch mod 10;

lc := (ch div 1000000) mod 10;

pch := lc * 10 + pc;

vch := pc * 10 + lc;

writeln('Первое число: ', pch, ' ; Второе число: ', vch, ' .');

end

else

WriteLn('Ошибка! Проверьте правильность введённых данных! Закрытие программы...');

readln;

end.