Иуееиу,у меня так получилось,правильно?
еиу заменяем цифрами 012
нам надо найти слово которое стоит на 411 месте
на 411 месте должно быть 410 (т.к. первое число 000000)
410/3=136(2) в скобках остаток, на 3 т.к. 3 буквы
136/3=45(1)
45/3=15(0)
15/3=5(0)
5/3=1(2)
1/3=0(1) -> 120012 ->иуееиу
<span>#include <iostream></span>
<span>using namespace std;</span>
<span>int main()
{</span><span>int a,b,k=1,n=1;</span><span>cin >> a >> b;</span>
<span>for (int i = 0; i < n; ++i)
{if ((k % a == 0) && (k % b == 0)) {cout << k; return 0;} else k++; n++;}</span>
}
<span>
</span>
Учёные используют Системное ПО
Дизайнеры используют Прикладное ПО
Веб.-Прогр. использует Системы прогр.
Методист использует Системное ПО
Дизайнеры используют Прикладное ПО
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
Writeln(a[:a.IndexMax].Where(x->(x>=1) and (x<=12)).Count)
end.
<u>Пример</u>
n= 15
3 12 -1 10 -7 18 10 19 8 9 -2 4 0 19 13
4
<em>А вот так учат писать эту же программу в школе...</em>
const
nn=100;
var
a:array[1..nn] of integer;
i,n,imax,k:integer;
begin
Randomize;
Write('n='); Read(n);
for i:=1 to n do begin
a[i]:=Random(41)-20;
Write(a[i],' ');
end;
Writeln;
imax:=1;
for i:=2 to n do
if a[i]>a[imax] then imax:=i;
k:=0;
for i:=1 to imax do
if (a[i]>=1) and (a[i]<=12) then k:=k+1;
Writeln(k)
end.
<u>Вот отсюда и вопрос: для чего учить писать длинно, сложно и малопонятно?</u>
Я ничего незнаю мне самой нужен ответ но никио ничего не пишет