Var s,gl: string;
<span> i: integer;
</span><span> ps: set of integer;
</span><span>begin
</span><span> gl:='аеёийоуыэюя';
</span><span> write('строка: ');
</span><span> readln(s);
</span><span> ps:=[];
</span><span> i:=2;
</span><span> repeat
</span><span> if pos(s[i],gl)>0 then ps:=ps+[i];
</span><span> i:=i+2;
</span><span> until i>length(s);
</span><span> write('множество четных позиций с гласными: ');
</span><span> foreach i in ps do write(i,' ');
</span><span>end.
</span>
Результат работы:
строка: Это строка для проверки
<span>множество четных позиций с гласными: 20 18 10 8 14
</span>
Насколько он сместился за эти три команды "Сместиться на (-5, -1) Сместиться на (3, 2) Сместиться на (3, -1)"? на (-5 +3 +3,-1 +2 -1) = (1,0).
Теперь умножаем полученные координаты на количество повторений: (3,0).
Ещё перед этим он сместился на (-4, -1), значит суммарно он сместился на (3 -4, 0 -1) = (-1, -1). И чтобы вернуться обратно, нужно сместиться на это же значение, но в противоположную сторону, то есть, на (1,1)
A и b - это, я так понял, x и y? Тогда так.
П1 <-> П0 3 <-> x^y 2 , 5 ИП0 ИП1 * * - 1 , 7 8 ИП0 x^2 * + 2 , 5 ИП1 * - 1 + С/П
Var
n, p: integer;
begin
Write('Введите натуральное четырехзначное число -> ');
Readln(n);
p := (n div 1000) * (n mod 10); { произведение первой и последней цифр }
n := (n mod 1000) div 10; { вторая и третья цифры }
p := p * (n div 10) * (n mod 10);
Writeln('Произведение цифр числа равно ', p)
end.
Тестовое решение:
Введите натуральное четырехзначное число -> 2437
Произведение цифр числа равно 168
//Паскаль
var i,n:integer;
a:array[1..20] of integer;
begin
n:=0;
randomize;
//заполняем рандомом
for i:=1 to 20 do
a[i]:=random(20);
//считаем, если елемент массива равен шести то увеличиваем переменную n на еденицу
for i:=1 to 20 do
if a[i]=6 then Inc(n);
Writeln('Кол-во шестерок ' , n);
end.<span>
</span>
