Проанализируйте фрагменты представленных программ. Запишите результат их работы в таблицу. Программа на языке Паскаль Результат работы программы program r1; var x,y: integer;…

Проанализируйте фрагменты представленных программ. Запишите результат их работы в таблицу. Программа на языке Паскаль Результат работы программы program r1; var x,y: integer; begin x:=47; y:= 26; x:= x mod 10; y:= y div 10; x:= x*y; writeln (x); end. program r2; var x,y,s: integer; begin x:=35; y:= 13; if x>y then s:= x-y else s:= x+y; writeln (s); end. program r3; var p,s: integer; begin s:=0; p:= 23; while p>0 do begin s:= s+p mod 10; p:= p div 10; end; writeln (s); end. program b3; var i,s: integer; begin s:=0; i:= 3; repeat s:= s+5 div i; i:= i-1; until i <1 writeln (s); end. program a5; var i,m: integer; begin m:=0; for i:=1 to 5 do m:= m+2*i; writeln (m); end.