Dan2707
03.08.2021 18:30

Америкалық фантаст-жазушы Айзек Азимовтың тұжырымдаған үш заңына талдау жасаңдар. Осы үш заңды қарапайым түсінікті
тілде басқаларға жеткізіңдер.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
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 оценок)
Ответ:
davidkhatkin
22.06.2020 06:36

<html>

<head>

<meta charset="utf-8">

<title>Document</title>

</head>

<body>

<header>

<h1>Title</h1>

<p>Imperdiet nullam senectus ultricies dignissim. Class erat sed lobortis dapibus integer. Rhoncus risus. Non turpis turpis faucibus suspendisse, habitasse, porta.</p>

<p>Phasellus eleifend cras fringilla morbi, metus cubilia consequat consequat est, felis Malesuada parturient. Montes lacinia eu elit inceptos nascetur lobortis nibh interdum phasellus laoreet litora magna feugiat nibh, vel montes nonummy nostra, sodales suspendisse duis sem interdum vel torquent libero.</p>

<p>Diam iaculis vestibulum consequat. Primis ullamcorper venenatis blandit ultrices leo phasellus quisque. Feugiat eu ad. Aptent ultrices. Habitant ultrices nullam, quis magna blandit non habitant at adipiscing nam Massa facilisis auctor dictumst aenean cubilia nisi etiam cum placerat facilisis. Sociosqu.</p>

<ul>

<li>Text</li>

<li>Text</li>

</ul>

</header>

</body>

</html>

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота