Задать вопрос
29 августа, 16:58

Написать программы в Pascal'е с использованием операторов варианта (циклов) :

1. Даны целые числа а1, а2, ..., а9. Верно ли, что их сумма есть четное число?

2. Известны стоимости каждого из восьми предметов в двух наборах. Какой из наборов прдметов более дешевый?

+3
Ответы (1)
  1. 29 августа, 19:49
    0
    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
    else writeln (' Второй набор дешевле ')

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Написать программы в Pascal'е с использованием операторов варианта (циклов) : 1. Даны целые числа а1, а2, ..., а9. Верно ли, что их сумма ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы