Программа, выводящая в обратном порядке все числа от 1 до 50, которые кратные 4 и все простые числа от 1 до 50 - Pascal ABC

Формулировка задачи:

нужно написать программу, выводящую в обратном порядке все числа от 1 до 50, которые кратные 4 и все простые числа от 1 до 50

Решение задачи: «Программа, выводящая в обратном порядке все числа от 1 до 50, которые кратные 4 и все простые числа от 1 до 50»

Листинг программы

uses FormsABC;
var i:integer;
    b:button; 
    s:string;
begin
MainForm.Title := '100 кнопок';
MainForm.SetSize(820,350);
MainForm.CenterOnScreen;
for i:=1 to 100 do
 begin
  s:='Button'+IntToStr(i);
  b:=new button(s);
 end;
end.

Объяснение кода листинга программы

В этом коде создается 100 кнопок на форме, каждая кнопка имеет уникальное имя Button1, Button2 и т.д. Код не связан с задачей, указанной в вашем вопросе. Задача, описанная в вашем вопросе, требует перебора чисел от 1 до 50, проверки их на простоту и на делимость на 4, и вывода в обратном порядке. Код, который вы предоставили, не выполняет эту задачу. Он создает 100 кнопок на форме, но не проверяет числа на простоту или делимость на 4, и не выводит их в обратном порядке.

Оцени полезность:

13 голосов , оценка 3.846 из 5

Похожие ответы