Question

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

Answer 1

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.

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

Answer 2

//если число делится на С, то выводим его квадрат вот это куда нужно ввести