Задание №1. Заполните режимы функции open(). Режим Назначение Открытие файла в двоичном (бинарном) режиме - id2117856120210623 от Stellamaric 23.06.2021 21:01

Question

Информатика: Задание №1. Заполните режимы функции open(). Режим Назначение Открытие файла в двоичном (бинарном) режиме Открытие файла в текстовом режиме (значение по умолчанию). Открытие ранее созданного файла и добавление новых данных в конец файла. Создание нового файла и запись в нем данных. Если такой файл уже создан, содержимое удаляется для записи в нем новых данных. Открытие файла для чтения. Открытие файла для чтения и записи. Задание №2. Текстовый файл A.txt содержит целые числа 19, 14 и 23, разделенные

Stellamaric · Accepted Answer

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
function FS(a,b:real):=0.5*a*b;
begin
var a,b:real;
Write('Катеты первого треугольника: '); Read(a,b);
var S1:=FS(a,b);
Write('Катеты второго треугольника: '); Read(a,b);
var S2:=FS(a,b);
if S1>S2 then Writeln('Площадь первого треугольника больше')
else
if S1<S2 then Writeln('Площадь второго треугольника больше')
else Writeln('Площади треугольников равны')
end.

Тестовое решение
Катеты первого треугольника: 4.18 6
Катеты второго треугольника: 5.4 3.9
Площадь первого треугольника больше

MOGZ ответил