Question

Написать программы в Pascal'е с использованием операторов варианта (циклов):1. Даны целые числа а1, а2, ..., а9. Верно ли, что их сумма есть четное число?2. Известны стоимости каждого из восьми предметов в двух наборах. Какой из наборов прдметов более дешевый?

Answer 1

 

 

 

 

1) 

 Program chetnost;

 Uses Crt

 const  arr: array[1..9] of integer=(8,5,3,7,4,1,22,34,15); {Наши числа от 1 до 9 }

                                                                                                   {туда напишешь любые целые}

                                                                                                    {которые препод укажет}

var i,sum:integer;

 

begin

     clrscr;

 

      sum:=0; 

     for i:=1 to 9 do sum:=sum+arr[i];

       if (sum mod 2) =0 then writeln('Их сумма чётное число ')

                    else  writeln('Их сумма нечётное число ') 

   

 

 end.

 

 

 2) Program Nabor;

 Uses Crt

 const  n1: array[1..8] of integer=(89,57,31,789,43,10,22,34); {стоимость товаров 1 набора }

 const  n2: array[1..8] of integer=(890,51,31,79,43,10,2,31); {стоимость товаров 2 набора } 

 

                                                                                                         {туда напишешь любые  целые}

                                                                                                         {которые препод укажет}

 var sum1,sum2,i: integer;

begin

     clrscr;

     sum1:=0; sum2:=0;

for i:=1 to 8 do

       begin

            sum1:=sum1+n1[i];

             sum2:=sum2+n2[i]

 

       end;

     

if (sum1=sum2)  writeln('Стоимость наборов одинакова '); 

if (sum1<sum2)  then writeln('Первый набор дешевле ')

                    else  writeln(' Второй набор дешевле  ') 

 

 end.

Answer 2

Конечно, я могу помочь с написанием программ на Pascal для решения этих задач.

1. Проверка суммы целых чисел на четность:

program CheckSumIsEven;

var
  a: array[1..9] of integer;
  i, sum: integer;

begin
  // Заполнение массива a1, a2, ..., a9
  writeln('Введите 9 целых чисел:');
  for i := 1 to 9 do
  begin
    write('Введите число ', i, ': ');
    readln(a[i]);
  end;

// Вычисление суммы чисел
  sum := 0;
  for i := 1 to 9 do
    sum := sum + a[i];

// Проверка на четность суммы чисел
  if sum mod 2 = 0 then
    writeln('Сумма чисел является четным числом')
  else
    writeln('Сумма чисел не является четным числом');
end.

2. Определение более дешевого набора предметов:

program CheaperSet;

var
  set1, set2: array[1..8] of integer;
  i, cost1, cost2: integer;

begin
  // Заполнение стоимостей предметов для двух наборов
  writeln('Введите стоимости 8 предметов для первого набора:');
  for i := 1 to 8 do
  begin
    write('Введите стоимость предмета ', i, ': ');
    readln(set1[i]);
  end;

writeln('Введите стоимости 8 предметов для второго набора:');
  for i := 1 to 8 do
  begin
    write('Введите стоимость предмета ', i, ': ');
    readln(set2[i]);
  end;

// Вычисление общей стоимости для каждого набора
  cost1 := 0;
  for i := 1 to 8 do
    cost1 := cost1 + set1[i];

cost2 := 0;
  for i := 1 to 8 do
    cost2 := cost2 + set2[i];

// Определение более дешевого набора
  if cost1 < cost2 then
    writeln('Первый набор предметов дешевле второго на ', cost2 - cost1)
  else if cost2 < cost1 then
    writeln('Второй набор предметов дешевле первого на ', cost1 - cost2)
  else
    writeln('Наборы предметов стоят одинаково');
end.

Эти программы предполагают, что ввод пользователем будет корректным (вводятся только числа и т.д.). В реальной программе можно добавить дополнительные проверки для обработки возможных ошибок ввода.