Я надеюсь вы в 5 классе ...
var i: integer;
sum:real;
begin
sum:=0;
for i:=1 to 50 do
sum:=sum+1/i;
writeln(sum);
<span>end.</span>
Var
x, y, z: integer;
begin
writeln('Веедите значения x,y,z');
readln(x, y, z);
if z>(x+y) then
writeln('Решения нет')
else if z=min(x,y) then
writeln('Делать нчего не нужно')
else
writeln('Потребуется шагов: ', min(x, y)-z)
end.
N = число в десятичной системе
res = пустая строка
WHILE n не равно 0:
res = привести в строку(остаток от деления n на 2)+res
n = n/2 (нужно делить без остатка Например: (3/2)= 1)
ЗАКОНЧИТЬ WHILE
вывести res
Вот так гораздо проще.
var s:string;
begin
readln(s);
writeln(length(s));
end.