Определите значение переменной a . полное решение, .

program number7;

uses crt;

var A: integer;

begin

clrscr;

A:=(116 div 10)*(116 mod 15) div 2 +116 mod 6;

writeln('a=',A);

end.

a=62, div 10 - делит число на 10 и выделяет целую часть, mod 15 - делит число на 15 и выделяет остаток от деления , div 2 - делит число на 2 и выделяет целую часть, mod 6 - делит число на 6 и выделяет остаток