Предмет:
ИнформатикаАвтор:
анонимprogram zz1;var a, b, c: integer; // задаем переменные целого типа f1: text; // задаем переменную текстового типа для работы с файломbegin assign(f1, \'input.txt\'); // связываем переменную текстового типа с файлом reset(f1); // открываем файл для чтения read(f1, a); // читаем первую сторону треугольника из файла read(f1, b); // читаем вторую сторону треугольника из файла read(f1, c); // читаем третью сторону треугольника из файла if (a = b) or (a = c) or (b = c) then // проверяем треугольник writeln(\' true \') else write(\' false \'); // выводим ответ close(f1); // закрываем файлend.
Автор:
frankieДобавить свой ответ
Предмет:
ЛитератураАвтор:
анонимОтветов:
Смотреть
Предмет:
ИнформатикаАвтор:
анонимОтветов:
Смотреть
Предмет:
ИнформатикаАвтор:
анонимОтветов:
Смотреть
Предмет:
ИнформатикаАвтор:
анонимОтветов:
Смотреть