<span>var
i,summ: real;
begin
for i := 2 to 50 do begin
summ :=summ+s</span><span>qrt(i)</span><span>;
i:=i+1;
end;
writeln(summ)
end.
//как то так но ошибка вылетает я хз </span>
Ответ:
10
Объяснение:
У исполнителя Бета две команды, которым присвоены номера:
1. прибавь b
2. умножь на 2
Программа 12121 переводит число 25 в число 170.
Составим уравнение:
(((25+b)*2)+b)*2+b=170
(50+2b+b)*2+b=170
100+4b+2b+b=170
7b=70
b=10
Проверка:
25+10=35
35*2=70
70+10=80
80*2=160
160+10=170
67 в десятичной = 103 в восьмиричной (просто 67 делить на 8 пока остаток будет получается меньше восьми)
Var
st:string;
i:byte;
begin
readln(st);//вводим строку
write('Числа имеющиеся в тексте: ');
for i:=1 to length(st) do
if (st[i] in ['1'..'9']) then write(st[i]); //если текущий символ принадлежит ко множеству чисел -то выводим его
end.