Const D = 2.54;
var i: integer;
rez: real;
begin
for i := 1 to 10 do begin
rez := i * D;
writeln( i, ' см = ', rez, ' дюйм' );
end;
<span>end.</span>
Var
x0,xn,c:real;
x,y,xmax,ymax:real;
begin
writeln('Xнач, Xкон:');
readln(x0,xn);
write('С = '); readln(c);
x:=x0;
xmax:=x; ymax:=x*x-100*x+10;
repeat
x:=x+c;
y:=x*x-100*x+10;
if y>ymax then begin xmax:=x; ymax:=y; end;
until x>=xn;
writeln('xmax = ',xmax,' ymax = ',ymax);
end.
Пример:
Xнач, Xкон:
-10 20
С = 1
xmax = -10 ymax = 1110
Раз в слово многократно вставлялись пары букв, то нужно из получившейся строки многократно вырезать пары:
<span>ОВЫФФЫВОЖИИЖЖДДИЖЖРЭЭАУУФПРЛППЖИРАФОКЛЛКМТННТМОФФФАРИЖЛРП
</span>
<span>ОВЫЫВОЖЖЖИРАФПРЛЖИРАФОККМТТМОФАРИЖЛРП
</span>
<span>ОВВОЖИРАФПРЛЖИРАФОММОФАРИЖЛРП
</span>ООЖИРАФПРЛЖИРАФООФАРИЖЛРП
<span>ЖИРАФПРЛЖИРАФФАРИЖЛРП
</span>
<span>ЖИРАФПРЛЖИРААРИЖЛРП
</span>
<span>ЖИРАФПРЛЖИРРИЖЛРП
</span>
ЖИРАФПРЛЖИИЖЛРП
<span>ЖИРАФПРЛЖЖЛРП
</span>
ЖИРАФПРЛЛРП
<span>ЖИРАФПРРП
</span>
<span>ЖИРАФПП
</span>
<span>ЖИРАФ
Ответ: </span>ЖИРАФ
Var a,b,c:longint;
Begin
read(a,b,c);
if c mod 2=1 then
writeln('Нечетное') else
writeln('Четное');
if ((c>=a) and (c<=b)) then
writeln('YES') else
writeln('NO');
<span>End.</span>
121X=110
X=121/110
///////////////////////////////////////