Задать вопрос
14 июля, 01:28

4. Вводится последовательность из 100 целых чисел. Первое число соответствует количеству монет, которое Петя кладет на левую чашу весов. Второе число соответствует количеству монет, которое Петя кладет на правую чашу весов. Третье число соответствует количеству монет, которое Петя кладет на левую чашу весов снова и так далее. Вывести на экран, какая из чаш весов окажется тяжелее. Вес каждой монеты равен 5 г.

+1
Ответы (1)
  1. 14 июля, 03:45
    0
    Var A, R:longint;

    c:byte;

    Begin

    WriteLn ('Введите 100 целых чисел') ;

    R:=0;

    For c: = 1 to 100 do

    Begin

    ReadLn (A) ;

    if c mod 2 0 then R:=R+A

    else R:=R-A

    End;

    if R=0 then WriteLn ('Чаши равны')

    else if R>0 then WriteLn ('Левая, на ', R*5,' г.')

    else WriteLn ('Правая, на ',-R*5,' г')

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «4. Вводится последовательность из 100 целых чисел. Первое число соответствует количеству монет, которое Петя кладет на левую чашу весов. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Напишите задачи в Паскале задача1 {вводится целое число n от [0 ... 200]. Затеи вводится n целых чисел от [0 ... 1000000] Вывести на экран их произведение.} задача2 {вводится целое число n от [0 ... 200]. Затеи вводится n целых чисел от [0 ...
Ответы (2)
1. Пользователем вводится целое число. Вывести на экран последовательность целых чисел от единицы до этого числа. 2. Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки. 3.
Ответы (1)
1. for + random a. вывести случайное количество случайных чисел b. вывести на экран 10 случайных чисел c. вывести на экран 10 случайных чисел, значение которых лежит в отрезке [0,10] d.
Ответы (1)
1) Заполнить массив размером N целыми числами последовательно от 1 до N. Вывести его на экран. Найти сумму элементов массива и вывести ее на экран. 2) Заполнить массив размером N целыми числами последовательно от N до 1. Вывести его на экран.
Ответы (1)
Паскаль. 1. вывести на экран все четные числа от 1 до n. 2. вывести на экран все трехзначные числа. 3. вывести на экран четырехзначные числа оканчивающийся на 7. 4. вывести на экран все трехзначные и двухзначные числа сумма цифр которых равна девяти.
Ответы (1)