Var m: array[1..15] of real; i: integer; n: real; begin randomize; for i: =1 to 15 do begin m : =random(20)-20; if( m< 0) then begin m: =sqr(m); end;
Ответ дал: Гость
на выходе 109
program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.
Ответ дал: Гость
письменность была нужна для оформления сделок, фиксации движения товаров, выручки, учета, финикийцы известны, прежде всего, как предприимчивые торговцы и отважные мореплаватели.
Популярные вопросы