Question

Написать программу, которая определяет значение целочисленной переменной A, после выполнения фрагмента алгоритма:A:=247;В:=(А*div 100) * 10-9А:=(10*b-a) mod 10;

Answer 1

Как на счет
Program sk;
var
A,B:integer;
begin
A:=247;
B:=(A div 100) * 10-9;
A:=(10*B-A) mod 10;
writeln('A= ',A);
end.