4. Вводится последовательность из 100 целых чисел. 1-ое число подходит количеству

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

Задать свой вопрос
1 ответ
Var A,R:longint;
c:byte;
Begin
WriteLn('Введите 100 целых чисел');
R:=0;
For c:= 1 to 100 do
    Begin
    ReadLn(A);
    if c mod 2 lt;gt; 0 then R:=R+A
    else R:=R-A
    End;
if R=0 then WriteLn('Чаши одинаковы')
else if Rgt;0 then WriteLn('Левая, на ',R*5,' г.')
     else WriteLn('Правая, на ',-R*5,' г')
End.
Костя Хасбулатов
решается ли эта задачка без longint и byte?
Дарья Дурсенева
Это просто целые типы. Их все можно поменять на integer
Михаил Бузанкин
byte тоже?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт