1 фото трехзначное число, 1 и 2 двухзначное
var n,k,s:integer;
begin
s:=1;
write ('Введите число: ');
readln(k);
write ('Введите степень: ');
readln(n);
for n:=1 to n do
begin
s:=s*k;
writeln('степень: ',n,' результат: ',s)
end
end.
//Pascal ABC.NET Версия 2.2 Сборка 790
var a,i:integer;
s:string;begin;
readln(a);
str(a,s);
if length(s)<>3 then exit;
if pos('3',s)=0 thenbegin;
writeln('Nowhere');
exit;
end;
for i:=1 to length(s) do
if s[i]='3' then writeln(i);
<span>end.
</span>
Пример ввода:
123
Пример вывода:
3
<em>ГОЛЛИВУД</em> (<span>Е:\КИНО\ФАНТАСТИКА</span>\ГОЛЛИВУД)