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

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.

Comments

А,сейчас

---

работает? или какая то ошибка опять?

---

Теперь работает,спасибо!

---

Единственное только..Оператор "for"..Но я,как всегда,написала об этом в последнюю очередь.

---

могу исправить))

---

Я была бы очень благодарна

---

готово

---

Ещё раз спасибо)Всё работает!)

---

Удачи в информатике)

---

: )