Question

Помогите СРОЧНО!!!!!! Написать задачу,которая будет выводить на экран квадраты чисел делящихся на С в последовательности чисел от А до В. В паскале

Answer 1

program HelloWorld;

var a, b, c, i :integer;

begin

    writeln('Введите  C');

    readln(c);

    writeln('Введите  A');

    readln(a);

    writeln('Введите  B');

    readln(b);

   

    for i := a to b do

     if sqr(i) mod c = 0 then writeln(i);

end.

Answer 2

var 
   a, b, c, i :integer;
Begin
   write('Введите C: ');
   read(c);
   write('Введите A: ');
   read(a);
   write('Введите B: ');
   read(b);
   for i := a to b do 
      if i mod c = 0 then write(i*i,'   ');//если число делится на С, то выводим его
                                                                                                                       квадрат
End.

В предыдущем ответе выводятся числа, квадраты которых делятся на С.