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

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

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

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

+2
Ответы (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. Верно ли, что их сумма ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Как описывают переменные в Pascal? Какие стандартные числовые типы языка Pascal вам известны? Что вам известно о соответствии типов переменных в языке Pascal? Какие арифметические операции можно выполнять в Pascal?
Ответы (1)
1) Вычислить длину окружности и площадь круга одного и того же заданного радиуса R. Pascal (желательно с блок-схемой) 2) Найти сумму членов арифметической прогрессии, если известны её первый член, знаменатель и число членов прогрессии Pascal
Ответы (1)
Напишите программы на языке программирования Pascal с использованием 3-х циклов. Условие задачи: Сто раз написать свое имя на экране в строчку. Не забудьте между именами поставить какой-либо разделительный знак (пробел, запятую и т. д.)
Ответы (1)
Какие программы относятся к прикладным программам? A. Программы общего назначения. B. Специальные профессиональные программы. C. Языки программирования. D. Сервисные программы. E. Операционные системы.
Ответы (1)
1. Даны целые числа b1, b2, ..., b10. Выяснить: а) верно ли, что сумма тех из них, которые больше 20, превышает 100; б) верно ли, что сумма тех из них, которые меньше 50, есть четное число.
Ответы (1)