6. что будет выведено на экран после выполнения программы? s : = '123456789'; s1 : = 'abcdef'; s : = copy(s,5,2) '0' copy(s1,3,3); writeln ( s );

на выходе 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.

количество базовых цветов обозначим за n. из всех базовых цветов будет складываться какой то один цвет, соответственно количество всевозможных цветов можно вычислить по формуле n=2^(2*n)

var x1,x2,x3,x4: integer;

function max(a,b: integer): integer

begin

    if a> b then max: = a

    else max: =b;

end;

begin

  read(x1,x2,x3,x4);

  x1: =max(x1,x2);

  x2: =max(x3,x4);

  x1: =max(x1,x2);

  writeln(x1);

end.

тимофею

есть

кого

спросить

тему