Var a:real;BeginWrite('Сторона равностороннего треугольника: ');ReadLn(a);WriteLn('P = ',a*3);WriteLn('S = ',a*a);End.
1) набор символов отделяемых проблами
2) набор символов отделяемых переводами строки
3) тут трудно сказать, скорее это чтото динамическое
4) я думаю что редактирование все же, просмотр реже
5) редактирование это изменение набора символов текста, так же впринцепе сюда относится и форматирование текста
6) Которые можно проводить в текстовом редакторе? создать, сохранить, сохранить с новым именем (а ля скопировать), открыть
var
a,b,c: integer;
begin
readln(a,b,c);
writeln(a+b+c)
end.
Function Nod(a,b:integer):integer;
begin
if a>b then Nod:=Nod(a-b,b)
else
if a<b then Nod:=Nod(a,b-1)
else Nod:=a;
end;
Var
i,sum:integer;
begin
sum:=0;
for i:=1 to 100 do
if (i mod 2<>0) then
sum:=sum+i;
write(sum);<span>
end.</span>