Блог для маленьких школьников и их родителей
ШколаЛа

Решите пожалуйста в Паскале

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

Решите пожалуйста в Паскале

Ответов к вопросу: 1
  • cherviktor713
    26.07.2024 | 16:08

    Версия если нужна работа с файлами
    var

    i,o:text;

    x1,y1,x2,y2:integer;

    begin

    assign(i,’input.txt’);

    assign(o,’output.txt’);

    reset(i);

    rewrite(o);

    readln(i,x1,y1,x2,y2);

    if (x1=x2) or (y1=y2) then writeln(o,’YES’) else writeln(o,’NO’);

    close(i);

    close(o);

    end.
    Если нет
    var

    x1,y1,x2,y2:integer;

    begin

    readln(x1,y1,x2,y2);

    if (x1=x2) or (y1=y2) then writeln(‘YES’) else writeln(‘NO’);

    end.
    P. S. Скорее всего для 5-9 классов нужна версия без работы с файлами

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.