Program nd;
var n, n1,d, d1: longint;
k,a,c: integer;
b: boolean;
begin
write('Введите число: ');
readln(n);
b:= false;
k:=0;
while (n>9) and (not b) do
begin
d:= n mod 10;
n1:= n div 10;
while (n1>0) and (not b) do
begin
d1:= n1 mod 10;
b:= d1 = d;
n1:= n1 div 10;
end;
n:= n div 10;
end;
while n<>0 do
begin
c:=n mod 10;
if c=d1 then k:=k+1;
n:=n div 10;
end;
if b then writeln('в этом числе повторяется ',k+1,' раз цифра ',d1)
else writeln('цифры не повторяются');
end.
Горный Paint с осоом на иконке
Ответ:
=ЕСЛИ(СУММ(A2:C2)=15;"О";ЕСЛИ(ИЛИ(A2<=2;B2<=2;C2<=2);"Н";ЕСЛИ(ИЛИ(A2=3;B2=3;C2=3);"Т";ЕСЛИ(ИЛИ(A2=4;B2=4;C2=4);"Х";""))))
Объяснение:
По минимальной оценке
Type mas=array of integer;
procedure revers(var a:mas; i:integer);
begin
write(a[i],' ');
if i>0 then revers(a,i-1);
end;
var a:mas;
i,n:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do
read(a[i]);
revers(a,n-1);
end
Создание новых технологий, интернет, гаджеты.