Var
a,b:integer;
begin
a:=0;
b:=0;
//Вывод через while
while a<>10 do
begin
inc(a);
write(a,' ');
end;
writeln('');
//Вывод через repeat
repeat
begin
inc(b);
write(b,' ');
end;
until b=10;
<span>end.</span>
Var
s,g:string;
sum:integer;
begin
g:='бвгджзйклмнпрстфхцчшщБВГДЖЗЙКЛМНПРСТФХЦЧШЩ';
read(s);
sum:=0;
for var i:=1 to length(s) do
if (pos(s[i],g)>0) then sum:= sum+i;
writeln(sum);
end.
<span>//ABC Pascal
</span>
7,4,2,5,3,6,1 -------------------
2 Задание не знаю
<em>№1 111010</em>
<em>№2 2d</em>
<em>№3 12</em>
<em>№4 44</em>
<em>№5 84</em>
<em>№6 27</em>
<em>№7 205</em>
<em>№8 100101100</em>
<span><em> 454</em>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
</span>
Понятно, что число должно быть ОТРИЦАТЕЛЬНЫМ, поскольку, если оно положительное, например равно 2 получаем
2, 2, 5. Но это НЕУБЫВАЮЩИЙ ряд.
Тогда пусть X=-10
Получаем:
-10, 10, 101
Теперь пусть Х = - 1/2.
Получаем
-1/2, 1/2, 5/4.
Очевидно в программе будет строчка:
Writeln(x, ' ', -x, ' ', 1+x*x);