1)Найти сумму всех целых чисел ** заданном интервале. 2) Найти все двухзначные числа,...

Question

1)Найти сумму всех целых чисел на заданном интервале. 2) Найти все двухзначные числа, которые делятся на n или содержат цифру n . Pascal ,тема циклы, без for плиз.

Answer 1

begin

 //1)

 Println('Введите границы интервала');

 var (a, b) := ReadInteger2();

 Println('Sum =', Range(a, b).Sum);

 

 //2)

 var n := ReadInteger('n =');

 foreach var x in Range(10, 99) do

   if (x mod n = 0) or

     (x mod 10 = n) or (x div 10 = n) then  

     Print(x)

end.

Comments

PascalABC.NET