begin
ReadInteger('num =').ToString.ToCharArray
.IndexesOf(x -> x = '7').Select(x -> x + 1).Println;
end.
042
Из первого кода правильно получается цифра 2 (так как 8 из 4 не правильно, а шесть есть и в 1, и во втором на одинаковых местах). Из второго цифра 4. И из третьего цифра 3.
№3
алг
нач
цел n,i
вывод '<span>Введите натуральное число:', нс
</span>ввод n
нц для i от 1 до n вывод i,': ',i*i,' ',i*i*i, нс
кц
кон
<span>№4</span>
алг
нач
цел a,b,i
вывод '<span>Введите два числа:', нс
ввод a,b
нц для i от a до b вывод i,'*',i,'=',i*i, нс
кц
кон</span>
Код рабочий, проверял на PascalABC
uses GraphABC;
var m: integer; arr: array [1..10] of integer;
begin
for var i := 1 to 10 do
begin
arr[i] := Random(120,200);
end;
m := Max(arr[1], Max(arr[2], Max(arr[3], Max(arr[4], Max(arr[5], Max(arr[6], Max(arr[7], Max(arr[8], Max(arr[9], arr[10])))))))));
println(m);
end.
Электронная почта просматривается на локальной машине и гризит весь объём с почтового сервера.
А Веб почта позволяет просматривать почту с любой машины имеющий доступ в сеть.