Question

ПОМОГИТЕ, СРОЧНО! (Паскаль,решается через цикл) Написать задачу которая будет выводить на экран квадраты чисел делящихся на C в последовательности чисел от A до B

Answer 1

Program ghjkligohqfaqruyfgeyfqgwqc;
var a, b, c, i :integer;
BEGIN
writeln (' Введите два числа, первое должно быть меньше и еще число делитель');
readln (a, b, c);
for i:=a to b do
begin
if (a*a) mod c=0 then
writeln (a*a);
a:=a+1;
end;
end.

Answer 2

Для решения данной задачи на языке программирования Паскаль можно использовать цикл, который будет перебирать числа от A до B и выводить на экран квадраты чисел, делящихся на C.

Вот пример кода на языке Паскаль, который решает данную задачу:

program SquaresDivisibleByC;
var
  A, B, C, i: integer;
begin
  // Вводим значения A, B и C
  write('Введите значение A: ');
  readln(A);
  write('Введите значение B: ');
  readln(B);
  write('Введите значение C: ');
  readln(C);
  
  // Перебираем числа от A до B
  for i := A to B do
  begin
    // Проверяем, делится ли число на C
    if i mod C = 0 then
    begin
      // Выводим квадрат числа
      writeln('Квадрат числа ', i, ': ', i * i);
    end;
  end;
end.

В этом коде мы сначала запрашиваем значения A, B и C у пользователя. Затем мы используем цикл `for` для перебора чисел от A до B. Внутри цикла мы проверяем, делится ли текущее число на C с помощью оператора `mod`. Если число делится на C, то выводим его квадрат на экран с помощью процедуры `writeln`.

Пример работы программы:

Введите значение A: 1
Введите значение B: 10
Введите значение C: 2
Квадрат числа 2: 4
Квадрат числа 4: 16
Квадрат числа 6: 36
Квадрат числа 8: 64
Квадрат числа 10: 100

В данном примере мы ввели значения A=1, B=10 и C=2. Программа вывела на экран квадраты чисел 2, 4, 6, 8 и 10, так как они делятся на 2.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать.