Какое значение примет переменная b после выполнения данного алгоритма a := 342; b := 512;...

Question

Какое значение примет переменная b после выполнения данного алгоритма a := 342; b := 512; a := a div 10 mod 10; b := a + b mod 10;

Answer 1

program number7;

uses crt;

var a,b: integer;

begin

clrscr;

a := 342;

b := 512;

a := a div 10 mod 10;

b := a + b mod 10;

writeln ('17 div 3 = ',b);

readln

end.

b=6