Как пользоваться Поиском

поиск по сайту
логин

пароль

регистрация     
забыли пароль?

Помощь сайту

Лекции » Информатика, Логика

09.05.2019 в 21:00 Задачи к лекции
:
Простые программы на Паскале АВС

№1.  Вывод всех делителей натурального числа а.

uses crt;

var a, n: integer;

begin

    writeln (′Введите целое положительное число′); readln(a);

    writeln (′Делители :′);

    n:=1;

    while ( n <= a/2 ) do begin

       if a mod n = 0 then

          writeln(n);

       inc(n);    {n увеличивается на 1}

    end;

    writeln (a)

end.

№ 2. Вывести все двузначные числа, которые делятся

  на сумму своих цифр, и количество таких чисел.

uses crt;

var a, s,k : integer;

begin

   for a:=10 to 99  do

    begin

      s:= (a mod 10) + (a div 10) ;

      if  a mod s = 0   then begin

          writeln(a);

          k:=k+1;

       end;

    end;

    write (′k=′,k);

  end.

№ 3. Вывести все 3-хзначные числа, сумма цифр которых равна заданному числу m≤27.

uses crt;

var i,a,b,c,m,k : integer;

begin

write (Введите m<=27  );

readln(m);

k:=0;

if m  in [1..27] then

   for i:=100 to 1000 do

   begin

       a:=(i div 100);

       c:=(i mod 10);

       b:=((i-a*100-c) div 10);

       if a+b+c=m then

       begin

          write (a,b,c,   );

          if (k=9) then   begin writeln;

                               k:=-1;

                            end;

          k:=k+1;

       end;

   end;

end.

Комментарии к лекции (скрыть)

Комментариев нет.

Задачи к лекции

Задач нет.