//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

0 0

4 года назад

47 гб интернета это много?

Наталья Сумина

Если речь идет о скорости, то да, очень много. На последней миле вряд ли такое найдете.

0 0

2 года назад

Прочитать ещё 2 ответа

Люди плиииз . Помогите подобрать какое-то чудо техники ( не смартфон ) для пересказа . Дам 25 баллов

Даша3713

Машина времени. Компьютер. Телевизор.

0 0

4 года назад

Прочитать ещё 2 ответа

Пожалуйста, помогите составить программу в паскале для данной задачи: Среди всех двузначных чисел найте те, сумма цифр которых р

vados1984

var
i, k, n: integer;

begin
read(n);
for i := 10 to 99 do
    if i mod 10 + i div 10 = n then begin
      writeln(i);
      k := k + 1;
    end;
writeln('k = ', k);
end.

0 0

4 года назад

Что такое файл, информатика. ​

Что такое файл, информатика.