<span>var
a: array[1..1000] of </span><span>longint</span>;
i,s,n:integer;
Процедуру заполнения напишешь сам, пишу алгоритм нахождения двухзначного числа(Количество чисел это n):
for i:=1 to n do
begin
if (a[i]>9) and (a[i]<100) then
begin
s:=s+1;
end;
end;
Луна
1. Создаём Эллипс
2. Перекрашиваем его в нужный цвет с помощью заливки
3. Предаём форму месяца с помощью ластика
Цветок
1. Создаём эллипс
2. Вокруг Эллипса создаём ещё другие Эллипсы и выставляем их вокруг первого Эллипса
3. Окрашиваем Эллипсы в нужные цвета
Колобок
1. Создаём эллипс
2. Внутри эллипса создаём глазки помощью инструмента "Эллипс"
3. Окрашиваем эллипсы в нужные цвета
Правильный ответ 15, то есть под номером 2
Ответ:
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
Var s,s1:string; p:byte;
<span>begin readln(s); for p:=length(s) downto 1 do s1:=s1+s[p]; </span>
<span>writeln(s1); end.</span>