<span>uses crt;
var s,sc:string;
i,k: integer;
begin
write('s=');
readln(s);
for i:=1 to length(s)-1 do
begin
sc:=copy(s,i,2);
if (sc='жы') or (sc='шы') then
begin
s[i+1]:='и';
inc(k);
end;
end;
if k=0 then writeln('Ошибок не обнаружено') else
begin
writeln('Обнаружены ошибки в количестве ',k,'. Ошибки исправлены: ');
writeln(s);
end;
readkey
end.</span>
А где оно ??я его не вижу !!!!!
Переберём все числа в диапазоне [10; 100). Сохраним наше текущее число в отдельную переменную. Пока копия числа больше нуля, будем умножать переменную произведения этого числа на последнюю цифру числа (% 10). Потом удалять последнюю цифру у копии числа (// 10).
<h3>Код</h3>
for i in range(10, 100):
i1 = i
pr = 1
while i1 > 0:
pr = pr * (i1 % 10)
i1 = i1 // 10
if i == pr*2:
print(i)
2 - powerpoint
3 - openoffice презентация
4 - visual studio 2014 или 2013