Татьяна4222
22.08.2022 19:22

1. Выберите функцию, которая округляет число до целого значения:

1. Abs(x)

2. Sin(x)

3. Tab(n)Int(x)

4. Oct$(x)

2. Выберите оператор, который обеспечивает вывод данных на экран:

1. Input

2. Print

3. Cls

4. If then

5. For next

3. Чему будет равен у, в результате выполнения программы?

Х1=2.6

Х2=-10

Х1=abs(х2)/2

Х2=int(х1)

Х2=х1

Y=2*x2+x1

5. Составьте программу для решения следующего уравнения. a=0.25 ; b=a3+

6. Составьте программу и блок-схему вывода куба наименьшего из 2-х введённых чисел. Если числа равны, то выводится надпись «Числа равны» и программа возвращается к вводу чисел.

7. Составьте программу и блок-схему для решения следующего уравнения.

8. Составьте программу и блок-схему для вычисления суммы ряда чисел {10, 20, 30, 40, 50, 60, 70, 80, 90, 100}

9. Дан ряд чисел {-40;10}. Составьте программу для вычисления:

1. Количества чисел меньше 5

2. Суммы положительных чисел

3. Суммы отрицательных чисел

4. Произведения нечетных отрицательных чисел

5. Среднего значения чисел кратных 4

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Акбота1ю
28.08.2022 16:15
While (tnum != 0)  //tnum, tden - числитель и знаменатель искомой                                    дроби
    {
        if (tnum < tden)
        {
            temp = tnum;
            tnum = tden;
            tden = temp;
        }
        tnum = tnum - tden;
    }
    gcd = tden;  //вычисляем наибольший общий делитель
    numerator = numerator / gcd;  //делим числитель и знаменатель на
                                                      НОД, получаем сокращенную дробь
    denominator = denominator / gcd;
0,0(0 оценок)
Ответ:
Nika7854
18.10.2022 15:08
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var k:=0;
  var Terminate:boolean;
  repeat
    Terminate:=True;
    var n:=ReadInteger('Введите номер месяца:');
    case n of
    1,3,5,7,8,10,12:Writeln('31 день');
    4,6,9,11:Writeln('30 дней');
    2:Writeln('28 дней в обычном году и 29- в високосном')
    else begin
      Writeln('Вы ошиблись, номер должен быть от 1 до 12');
      Inc(k);
      Terminate:=False
      end
    end
  until Terminate;
  if k>0 then Writeln('Вы ошиблись ',k,' раз(а).')
end.

Тестовое решение:
Введите номер месяца: 18
Вы ошиблись, номер должен быть от 1 до 12
Введите номер месяца: 0
Вы ошиблись, номер должен быть от 1 до 12
Введите номер месяца: 5
31 день
Вы ошиблись 2 раз(а).
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота