dan3133
Program gg; const tmx = 60; var x, y, t: integer; s: string; begin t := 10; readln(x, y); while t <> tmx do begin inc(t, 10); inc(x, x); inc(y, y); end; if x > y then s := 'Стас' else if y > x then s := 'Тарас' else s := 'никто'; writeln(s);end.
Answers & Comments
const tmx = 60;
var x, y, t: integer; s: string;
begin t := 10; readln(x, y); while t <> tmx do begin inc(t, 10); inc(x, x); inc(y, y); end; if x > y then s := 'Стас' else if y > x then s := 'Тарас' else s := 'никто'; writeln(s);end.