По информатике. Решите задачу ** языке Паскаль: известно 2 массы одна в кг другая в грамм...

Question

По информатике. Решите задачу на языке Паскаль: известно 2 массы одна в кг другая в грамм выясънить какая из них больше.

Answer 1

Program HeyaPeIIIuJl;varx,y:integer;BEGINwriteln('x= kr');readln(x);writeln('y= rpaMM');readln(y);x:=x*1000;if x>y then begin writeln('x 6oJlbIIIe'); end;if y>x then begin writeln('y 6oJlbIIIe'); end;if x=y then begin writeln('paBHbI'); end;readln;END.