Перейти к содержанию

TiPo

Пользователи
  • Постов

    1 037
  • Зарегистрирован

  • Посещение

Сообщения, опубликованные TiPo

  1. Нужно решать варианты индивидуальных заданий?

    labN 3Vetvlenie.doc:

    Нужно определить, что число "перевёртышь".

    Правильно?


    var
    n:string;
    begin
    readln(n);
    if (n[1]=n[4]) and (n[2]=n[3])
    then writeln('YES')
    else writeln('NO');
    end.
    program labN3Vetvlenie1;


    var
    n:word;
    begin
    readln(n);
    case (n mod 10) of
    1:writeln(n, ' год.');
    2..4:writeln(n, ' года.');
    0,5..9:writeln(n, ' лет.');
    end;
    end.
    program labN3Vetvlenie2;


    var
    k,l,m,n:1..8;
    begin
    readln(k,l,m,n);
    if (k+l) mod 2=(m+n) mod 2
    then writeln('YES')
    else writeln('NO');
    end.
    program labN3Vetvlenie3;

    Добавлено спустя 45 секунд:

    А это для какого класса задания?

  2. Прошёл пять эпизодов The Walking Dead, скажу честно, заплакал. Когда будет продолжение? Слышал, что разработчики обещали новую часть. Если будет новая часть, то отдам должное разработчикам и проплачу игру, кстати и эту надо будет, как средства позволят.

×
×
  • Создать...