Program fofgogjoj;
var
n:integer;
a,s:real;
begin
repeat
Writeln('Введите вещественное число a');
Read(a);
until a>1;
s:=0;
n:=1;
while s<a-1/n do
begin
s:=s+1/n;
Write(n:4);
n:=n+1;
end;
Writeln;
Writeln('s=',s:0:4);
<span>end.
Не советую печатать число большее 10 xD</span>
Ну переводишь всё в 10-ю (сумма произведений разрядов на с.с. в степени позиции разряда):
(3 * x^0) + (3 * x^1 + 1 * x^0) = (1 * x^2 + 1 * x^1) <=>
3 + 3x + 1 = x^2 + x <=>
x^2 - 2x - 4 = 0
D = 4 - 4 * 1 * (-4) = 20
=> x - не целый => решения нет
120n (руб) - стоимость всего мороженого
3800к (руб) - стоимость всего шоколада
120n + 3200k (руб) - потратил мальчик на всю покупку
Странное задание.
var s:string;
begin
s:='ценая вещь';
s:=copy(s,1,3)+copy(s,3,8);
<span>end.
Как-то так, наверное.</span>
var
i:integer;
s:string;
const
glas=['Й','У','Е','Ы','А','О','Э','Я','И','Ю'];
beginwrite ('Vvedite predlohenie: ');
readln (s);
i:=1;
while i<=length (s) do
begin
if ((i=1) or (s[i-1]=' ')) and (s[i] in glas) then
begin
while not ((s[i] in ['.',',',';','!','?',':',' '])) and (i<=length (s)) do
begin
write (s[i]);
i:=i+1;
end;
writeln;
end;
i:=i+1;
end;
readln;
end.