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

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

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.