Question

Прошу, допоможіть, будь ласка! Даю 40 баллів! Виконати у середовищі Pascal.
1. Скласти програму яка з чисел від 10 до 100 виводить на екран ті, що діляться на 5.
2. Скласти програму яка для кожного числа від 20 до 99 друкує на екрані суму його цифр.​

Answer 1

Відповідь:

Виведення чисел від 10 до 100, що діляться на 5:

program div5;

var i: integer;

begin

 for i := 10 to 100 do

 begin

   if (i mod 5 = 0) then

     writeln(i);

 end;

end.

Виведення суми цифр для кожного числа від 20 до 99:

program digitsum;

var i, sum, ones, tens: integer;

begin

 for i := 20 to 99 do

 begin

   ones := i mod 10;

   tens := i div 10;

   sum := ones + tens;

   writeln(i, ' : ', sum);

 end;

end.

У цій програмі ми використовуємо операції ділення і взяття остачі від ділення, щоб отримати розряди десятків і одиниць для кожного числа. Потім ми додаємо ці розряди, щоб отримати суму цифр.