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.
42536 / 8=5317 (остаток ==> 0)
5317 / 8=664 (остаток ==> 5<span>)
664 / 8 = 83 </span>(остаток ==> 0<span>)
83 / 8 = 10 </span>(остаток ==> 3<span>)
10 / 8 = 1 </span>(остаток ==> 2<span>)
выписываем начиная с последнего оставшегося числа (1) </span><span>==></span><span> 123050 </span>
Сумма натуральных чисел от 20 до 30 составляет арифметическую прогрессию, состоящую из 11 членов. Первый член прогрессии: 20, разность прогрессии - 1. По формуле суммы n членов прогрессии составим программу.
<u>Решение на языке Pascal:</u>
var n: real;
begin
n := (20 + 30) / 2 * 11;
writeln(n);
end.
Иное решение: с помощью цикла просуммируем все числа от 20 до 30.
var
i, s: integer;
begin
s := 0;
for i := 20 to 30 do
s := s + i;
writeln(s);
end.
Begin
var a := ArrRandom(7, -10, 10);
a.println();
writeln(a.Where(x -> x mod 2 = 0).Average);
end.
