Question

найти сумму ,колличество и среднее арифмитическое всех чисел синтервалом {200,400} с помощью программы лазарус .
Вычислить произведение всех этих чисел с интервалу {а,в} что больше 5 и меньше
15

Answer 1

Ответ:

В Pascal :

program z;

var i,a,a1,j,s,k,f:integer;

t:array [1..8999] of integer;

begin

    s:=0;

    k:=0;

    j:=1;

    for i:=1000 to 9999 do

        begin

        a:=i;

        f:=0;

        while a<>0 do

              begin

                   a1:=a mod 10;

                   if a1=5

                      then

                          begin

                               t[j]:=i;

                               f:=1

                          end;

                   a1:=a div 10;

                   a:=a1;

              end;

        if f=1

           then

               j:=j+1;

        k:=j-1;

        end;

    {writeln('Четырехзначные числа с цифрой 5 в записи');

    for j:=1 to k do

        write(t[j],' ');}

    for j:=1 to k do

        s:=s+t[j];

    //writeln;

    writeln('Сумма этих чисел - ',s);

end.