Задать вопрос Регистрация
Помочь другим



  • 1. Даны целые числа b1, b2, ..., b10. Выяснить:
    а) верно ли, что сумма тех из них, которые больше 20, превышает 100;
    б) верно ли, что сумма тех из них, которые меньше 50, есть четное число.

Ответы 1

  • uses crt;var b:array [1..10] of integer; i,s1,s2:integer;beginclrscr;for i:=1 to 10 dobeginRandomize;b[i]:=random(100);end;s1:=0; s2:=0;if b[i]>20 then s1:=s1+b[i]; if s1>100 then writeln ('a)verno')else writeln ('a)ne verno');if b[i]<50 then s2:=s2+b[i]; if s2 mod 2=0 then writeln ('á)verno')else writeln ('b)ne verno');end.

    • Автор:

      poole
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years