Question

Помогите пожалуйста срочно До 15.04.2020. Составить программу, которая выводит на экран кубы всех чисел, кратных 9 из диапазона [a,b] (где a,b<100). Переменные a и b запрашиваются с клавиатуры. На языке Паскаль.

Answer 1

Решил сделать так. Можно написать через For

var

a,b,c:integer;

begin

 repeat

   readln(a,b);

 until (a<100) and (b<100);

 if a>b then

   begin

     c:=a;

     a:=b;

     b:=c;

   end;

 if a mod 9 <> 0 then

   begin

     inc(a);

     while (a mod 9 <> 0) do

        inc(a);

     while a<=b do

       begin

         writeln(a,'^3 = ',a*a*a);

         a:=a+9;

       end;

   end

     else

       while a<=b do

         begin

           writeln(a,'^3 = ',a*a*a);

           a:=a+9;

         end;        

end.