Question

ПОМОГИТЕ ПОЖАЛУЙСТА. Выведите столбиком дроби 30/ 5 28/5 26/5 …. 2/5. ПРОШУ,ПРОГРАММУ СДЕЛАЙТЕ ЧЕРЕЗ ЦИКЛ For i := 1 to n do begin

Answer 1

Ответ:

var

a,b,c,d:Integer;

begin

b:=30;

for a:=1 to 15 do

Begin

c:=5;

WriteLn(b,'/',c);

b:=b-2;

end ;

readln;

end.

Объяснение:

Я смог помочь!?

Answer 2

Конечно, вот ваш код на Pascal для вывода дробей в столбик:

pascalCopy code
program FractionOutput;

var
  i, n: Integer;
  numerator: Integer;
  
begin
  n := 6; // Замените значение n на нужное количество дробей
  
  for i := 0 to n do
  begin
    numerator := 30 - 2 * i;
    writeln(numerator, '/', 5);
  end;
end.

В данном коде я использовал цикл для изменения числителя дроби по шагу 2, начиная с 30 и заканчивая 2. Вы можете изменить значение переменной n на количество дробей, которое вам нужно. Просто скопируйте этот код в среду разработки Pascal, например, Free Pascal, и выполните его.