Question

Выполнить в паскале. 32 БАЛЛА Стоимость 10 авиабилетов в цикле сделать и вывести сумму стоимости этих авиабилетов 7 раз. Скиньте плес команду

Answer 1

Program naconecto;vara:array[1..10] of real;sum:real;i:integer;BEGINsum:=0;writeln('BBeguTe II,eHbI gec9Tu aBua6uJleToB B py6Jl9x');for i:=1 to 10 do  begin    readln(a[i]);    sum:=sum+a[i];  end;writeln('CyMMa =',sum);END.

Answer 2

Конечно! Вот код на языке Паскаль, который выполняет задачу:

program CalculateTicketCost;

var
  i: integer;
  ticketCost, totalCost: integer;

begin
  totalCost := 0;
  
  for i := 1 to 10 do
  begin
    writeln('Введите стоимость авиабилета: ');
    readln(ticketCost);
    totalCost := totalCost + ticketCost;
  end;
  
  writeln('Сумма стоимости авиабилетов:', totalCost);
  
  for i := 1 to 7 do
  begin
    writeln('Сумма стоимости авиабилетов:', totalCost);
  end;
  
  readln;
end.

В этом коде используется цикл `for` для ввода стоимости 10 авиабилетов и нахождения их суммы. Затем, значение `totalCost` выводится на экран. Затем, с использованием ещё одного цикла `for`, значение `totalCost` выводится на экран семь раз.

Надеюсь, это поможет!