vlad369cool
01.05.2020 10:30

Наведіть приклади графічних зображень які використовували в навчанні

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Olegggg04
08.06.2021 09:06

С большой коллекцией DVD-дисков нам обычно трудно управлять и хранить из-за таких причин, как страх поцарапаться, потерять и т. Д. Таким образом, оцифровка DVD на жесткий диск становится хорошим сохранить фильм DVD. Помимо этого, у вас могут быть другие требования для копирования DVD-дисков. Например, сначала сохраните фильм DVD на жестком диске, затем скопируйте или передайте его на другое устройство или загрузить DVD клипы на YouTube.

Независимо от того, что требует, чтобы вы скопировали DVD на жесткий диск, вы не можете пропустить это простое руководство. Сегодня мы покажем вам, как копировать DVD на жесткий диск с простых шагов 4. Продолжайте читать, мы опишем операции как можно подробнее

0,0(0 оценок)
Ответ:
malyshkala1234
31.10.2021 18:57
Попробуй Program PascalGuru; var s:string;    f,t:text;
function preobr(s:string):string;var i,j,p,n,sered:integer;    gl,zp,slovo:string;    m:array [1..80] of string;beginzp:='!?*,.'; gl:='аоуыэяеёюи';  p:=pos(' ',s); i:=0;        repeat        inc(i);        slovo:=copy(s,1,p-1);        m[i]:=slovo;        delete(s,1,p);        p:=pos(' ',s);        until p=0;        n:=i+1;        m[n]:=s;    for i:=1 to n do     begin    s:=m[i];       if pos(s[length(s)],zp)<>0 then p:=length(s)-1 else p:=length(s);     sered:=(p div 2)+1;    if (not odd(p)) or (p<3) then continue;     if pos(s[1],gl)=0       then continue;     if pos(s[sered],gl)=0   then continue;     if pos(s[p],gl)=0       then continue;      s[1]:=UpCase(s[1]);    s[sered]:=UpCase(s[sered]);    s[p]:=UpCase(s[p]);     m[i]:=s+'('+s[1]+','+s[sered]+','+s[p]+')';     end;         s:='';     for i:=1 to n do s:=s+m[i]+' '; preobr:=s;end;
 beginassign(f,'input.txt'); reset(f);assign(t,'output.txt'); rewrite(t); while not eof(f) do      begin      readln(f,s);      writeln(t, preobr(s) );      end;  writeln('Файл успешно записан...'); close(f);close(t);readln;end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота