Размещено 4 года назад по предмету
Информатика
от maria77758
Задача 3 program n n; var x,y: integer; begin х: =7; y: = 3; if (y div x) >0 then x:=x+y mod 3 else y:=y div 3+2*x writeln(y); end. Задача 4 program n n; var x,y: integer; begin x:=4; y:=3; if (x div y) <>0 then if x<>y then x:=x div 4+x mod 8 else x:= x mod y else x:=y mod 4+x*2 writeln (x) end.