Составить программу на яп паскаль, которая бы при генератора сч [напомню, это ф-ции randomize и random(i)] позволяла бы сыграть с пк в игру «угадай число» при виртуальной игральной кости. счёт ведётся до 10 набранных очков. если угадал – плюс одно очко, не угадал – счёт не меняется. счет вести и для игрока и для пк.

program game;

var costi, me, comp, myscore, compscore, round: integer;

begin randomize; costi : = random(6); myscore : = 0; compscore : = 0; for round : = 1 to 10 do begin writeln('введите ваще число от 1 до 6'); readln(me); if me = costi then writeln('выпало число ', costi, '. вы угадали, счет становится (', myscore + 1, '; ', compscore,')') else writeln('выпало число ', costi, '. вы не угадали, счет остается преждним (', myscore, '; ', compscore,')'); if me = costi then myscore : = myscore + 1; writeln('кости бросает компьютер'); costi : = random(6); comp : = random(6); if comp = costi then writeln('выпало число ', costi, '. компьютер угадал, счет становится (', myscore, '; ', compscore + 1,')') else writeln('выпало число ', costi, '. компьютер не угадал, счет остается преждним (', myscore, '; ', compscore,')'); if comp = costi then compscore : = compscore + 1; end; if myscore> compscore then writeln ('вы победили! '); if myscore< compscore then writeln ('вы проиграли.'); if myscore=compscore then writeln ('боевая ничья! '); end.

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end. 

квадрат вписан в круг при условии что r*2(диаметр)> диагонали квадрата 

на qbasic

? "введите 2 числа - радиус круга и сторону квадрата соответсвенно"

input a; b

c=a*2   диаметр

g=sqr(a*a+a*a) диагональ  

if c> g then 1 else 2

1 ? "квадрат вписан в круг"

goto 3

2 ? "квадрат не вписан в круг"

3 end