Растровая и векторная графика
Существенный признак<span> — </span>признак<span>, придающий </span>предмету<span> качественную </span><span>определенность; </span>признак<span>, без которого </span>предмет<span> перестает </span>существовать<span> как данный</span>предмет<span>.</span>
Не знаю как их назвать, но попробуй зайти в Мой Компьютер и удалить что-нибудь от туда, ни куда не заходя (то есть Диск С и т.д.)
Вот это нельзя удалить...
Var f,f1:text;
s:string;
begin
assign(f,'f.txt');
reset(f);
assign(f1,'f1.txt');
rewrite(f1);
while not eof(f) do
begin
readln(f,s);
{есть функция:
function TrimRight(s: string): string;
Возвращает строку с удаленными конечными пробелами
Можно и так, как написано ниже}
while s[length(s)]=' ' do delete(s,length(s),1);
writeln(f1,s);
end;
close(f);
close(f1);
end.
Var
a,b,am,nod,bb:integer;
begin
readln(a);
writeln('--------');
readln(b);
am:=a mod b;
bb:=b;
while am*b<>0 do
if am>b then am:=am mod b else b:=b mod am;
nod:=am+b;
writeln(a div bb,' ',a mod bb div nod,'/',bb div nod);
end.
Ввод:
14
-------
3
Вывод:
4 2/3