Редактирование текстового документа - это выполнение в текстовом редакторе функций стандартизированного оформления шрифтов (цвет, жирность, наклон и другие признаки не меняющие содержания), внедрение графики и формул, таблиц и объектов.символы являются теми основными объектами, из которых состоит документ. символы — это буквы, цифры, пробелы, знаки пунктуации, специальные символы, такие, как @, *, & . символы можно форматировать (изменять их внешний вид).среди основных свойств символов можно выделить следующие: шрифт, размер, начертание и цвет.абзац является одним из основных объектов текстового документа. абзац с точки зрения — это часть текста, представляющая собой законченный по смыслу фрагмент произведения, окончание которого служит естественной паузой для перехода к новой мысли.
1) var a,b,a1,b1:real; var s,s1:real; begin WriteLn('Введите все катеты через пробел:'); Read(a,b,a1,b1); s:=a/2*b; s1:=a1/2*b1; WriteLn(s); WriteLn(s1); if s = s1 then WriteLn('Треугольники равновелики') else if s>s1 then WriteLn('Площадь первого треугольника больше на '+(s-s1)) else WriteLn('Площадь второго треугольника больше на '+(s1-s)); end.
2) var a,b:Integer; var arr:array of char; begin arr:=ReadString().ToCharArray(); for var i:= 1 to 6 do if(i<4) then a+= strtoint(arr[i-1]) else b+= strtoint(arr[i-1]); if a=b then WriteLn('Билет счастливый') else WriteLn('Билет не счастливый'); end.
var a,b,a1,b1:real;
var s,s1:real;
begin
WriteLn('Введите все катеты через пробел:');
Read(a,b,a1,b1);
s:=a/2*b;
s1:=a1/2*b1;
WriteLn(s);
WriteLn(s1);
if s = s1 then
WriteLn('Треугольники равновелики')
else if s>s1 then
WriteLn('Площадь первого треугольника больше на '+(s-s1))
else
WriteLn('Площадь второго треугольника больше на '+(s1-s));
end.
2)
var a,b:Integer;
var arr:array of char;
begin
arr:=ReadString().ToCharArray();
for var i:= 1 to 6 do
if(i<4) then
a+= strtoint(arr[i-1])
else
b+= strtoint(arr[i-1]);
if a=b then
WriteLn('Билет счастливый')
else
WriteLn('Билет не счастливый');
end.