Thorgandis
7 год назад
Написать на языке Паскаль! Помогите плиз
ОТВЕТЫ
Navazhisc
Jul 19, 2019
Program gg;
const tmx = 60;
var x, y, t: integer; s: string;
begin t := 10; readln(x, y); while t lt;gt; tmx do begin inc(t, 10); inc(x, x); inc(y, y); end; if x gt; y then s := Стас else if y gt; x then s := Тарас else s := никто; writeln(s);end.
const tmx = 60;
var x, y, t: integer; s: string;
begin t := 10; readln(x, y); while t lt;gt; tmx do begin inc(t, 10); inc(x, x); inc(y, y); end; if x gt; y then s := Стас else if y gt; x then s := Тарас else s := никто; writeln(s);end.
26
