Администраторы группы

  • Аватар

Олимпиада по информатике. Готовимся побеждать!

Открытая группа активность: 1 дн., 4 ч. назад

Группа для тех, кто намеревается побеждать на районных и региональных олимпиадах по информатике.
Здесь можно будет найти олимпиадные задания, задачи повышенной сложности, обсудить оптимальные алгоритмы решений
Памятка для участников олимпиады

Сайт Информатикс – регистрирууемся, решаем, продвигаемся в рейтинге

Программирование на Pascal. (записей: 76)

← Форум группы   Все форумы
  • Аватар LukasTrickster - 2 мес., 2 нед. назад:

    Мороженое
    https://informatics.msk.ru/mod/statements/view3.php?id=276&chapterid=264#1

    var A:longint;
    begin
    read(a);
    if (a=0) or (a=1) or (a=4) then write('NO')
    else if (a mod 5=3) or (a mod 5=1) or (a mod 5=4) or (a mod 3 =0) or (a mod 5=0) then write('YES')
    else write('NO');
    end.
    
  • Аватар LukasTrickster - 2 мес., 2 нед. назад:

    Координатные четверти
    https://informatics.msk.ru/mod/statements/view3.php?id=276&chapterid=266#1

    var A1,A2,B1,B2:longint;
    begin
    read(A1,A2,B1,B2);
    if (A1>0) and (A2>0) and (B1>0) and (B2>0) then write('YES')
    else if (A1<0) and (B1<0) and (A2>0) and (B2>0) then write('YES')
    else if (A1<0) and (A2<0) and (B1<0) and (B2<0) then write('YES')
    else if (A1>0) and (B1>0) and (A2<0) and (B2<0) then write('YES')
    else write('NO');
    end.
    
  • Аватар LukasTrickster - 2 мес., 2 нед. назад:

    Существует ли треугольник?
    https://informatics.msk.ru/mod/statements/view3.php?id=276&chapterid=295#1

    var a,b,c:longint;
    begin
    read(a,b,c);
    if (a=0) or (b=0) or (c=0) then write('NO')
    else if(a+b>c) and (a+c>b) and (b+c>a) then write('YES')
    else write('NO');
    end.
    
  • Аватар LukasTrickster - 2 мес., 2 нед. назад:

    Количество равных из трех
    https://informatics.msk.ru/mod/statements/view3.php?id=276&chapterid=296#1

    var a,b,c:longint;
    begin
    read(a,b,c);
    if (a=b) and (b=c) and (a=c) then write(3)
    else if (a=b) or (b=c) or (a=c) then write(2)
    else write(0);
    end.
    
  • Аватар prepod - 2 мес., 2 нед. назад:

    Пошло дело)

  • Аватар LukasTrickster - 2 мес., 2 нед. назад:

    Квадратное уравнение
    https://informatics.msk.ru/mod/statements/view3.php?id=276&chapterid=301#1

    var a,b,c:longint;
    D:real;
    begin
    read(a,b,c);
    D:=sqrt(sqr(b)-4*a*c);
    if D=0 then write(-b/(2*a))
    else if d>0 then write((-b-D)/(2*a),' ',(-b+D)/(2*a));
    end.
    

    Ошибка во время выполнения программы

  • Аватар root - 2 мес., 2 нед. назад:

    prepod, ну да: вопрос об адекватности требования типа данных longint (кстати: какое у него максимальное значение?) для копеек повис в воздухе…

  • Аватар prepod - 2 мес., 2 нед. назад:

    Необходимость использования данного типа данных в данном конкретном случае была однозначно пояснена.
    Примерное число IP-адресов по четвертой версии протокола знает любой нормальный школьник. О необходимости оптимально использовать ресурсы кружкисты так же осведомлены.
    Философский вопрос взаимоотношений заказчик-разработчик может быть интересен. Если есть желание пообсуждать – выносите в отдельную тему.

  • Аватар root - 2 мес., 1 нед. назад:

    prepod, я вообще-то говорил не про IP-адреса, а про _копейки_ в одной из предыдущих задач.

    Ну и вопрос обоснованного выбора типов данных — на самом деле первый этап проектирования.
    Скучно и само по себе не сильно интересно. Но важно.

  • Аватар prepod - 2 мес., 1 нед. назад:

    Оптимальный выбор типа переменной – это интересная задачка для внимательных. Упор на это делается с первых же уроков.
    longint – 4 байта. IP-адрес – тоже 4 байта.

  • Аватар root - 2 мес., 1 нед. назад:

    Правильный (обратите внимание на терминологию) выбор типов данных — задачка не только интересная, но и злободневная.

    Предлага отмотать ленту назад и найти пример требования типа данных longint для _копеек_ (!).
    На самом деле — хороший повод для разговора на тему первичных и производных типов данных.
    И сюрпризов преобразований.

  • Аватар LukasTrickster - 2 мес., 1 нед. назад:

    Четные числа
    https://informatics.msk.ru/mod/statements/view3.php?id=280&chapterid=333#1

    var a,b,c:longint;
    BEGIN
    read(a,b);
    begin
    for c:=a to b do
    if c mod 2 =0 then write(c,' ');
    end;
    END.
    
  • Аватар LukasTrickster - 2 мес., 1 нед. назад:

    Остаток
    https://informatics.msk.ru/mod/statements/view3.php?id=280&chapterid=334#1

    var a,b,c,d,e:longint;
    BEGIN
    read(a,b,c,d);
    begin
    for e:=a to b do
    if e mod d =c then write(e,' ');
    end;
    END.
    
  • Аватар LukasTrickster - 2 мес., 1 нед. назад:

    Квадраты
    https://informatics.msk.ru/mod/statements/view3.php?id=280&chapterid=335#1

    var a,b,c:longint;
    BEGIN
    read(a,b);
    for c:= a to b do
    if trunc(sqrt(c))*trunc(sqrt(c))=c  then writeln(c);
    END.
    
  • Аватар LukasTrickster - 2 мес., 1 нед. назад:

    Минимальный делитель
    https://informatics.msk.ru/mod/statements/view3.php?id=280&chapterid=339#1

    var a,b:longint;
    begin
    read(a);
    for b:=2 to a do
    if a mod b=0 then
    begin
    write(b);
    break;
    end;
    end.