Помогите сделать все что на листике.
Учусь в 10 классе а ощущение как в университете...

1
все тут легкое
помогите пожалуйста если для вас это легко

Ответы и объяснения

2013-12-04T00:30:14+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Var
    x, y: real;

begin
    read(x, y);
    writeln((y >= -4) and (x <= 3) and (x >= -3) and (y <= x + 3) and (y <= -x + 3));
end.

var
    n: integer;

begin
    read(n);
    case n of
        0..6: writeln('дите');
        7..16: writeln('школьник');
        17..59: writeln('отучился');
        60..199: writeln('отработал');
        200..2000: writeln('Дункан Маклауд');
    end;
end.

var
    y: integer;
    s: string;

begin
    read(y);
    y := (y div 100 - 1) mod 100;
    case y div 10 of
        0: s := s + '';
        1: s := s + 'X';
        2: s := s + 'XX';
        3: s := s + 'XXX';
        4: s := s + 'XL';
        5: s := s + 'L';
        6: s := s + 'LX';
        7: s := s + 'LXX';
        8: s := s + 'LXXX';
        9: s := s + 'XC';
    end;
    case y mod 10 of
        0: s := s + '';
        1: s := s + 'I';
        2: s := s + 'II';
        3: s := s + 'III';
        4: s := s + 'IV';
        5: s := s + 'V';
        6: s := s + 'VI';
        7: s := s + 'VII';
        8: s := s + 'VIII';
        9: s := s + 'IX';
    end;
    writeln(s);
end.