М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
lubovsalamatova
lubovsalamatova
14.06.2022 10:46 •  Информатика

1.Яке службове слово використовується для опису першої умови оператора розгалуження (використовується для першого блоку команд)? * 2.Якщо є потреба врахувати значення декількох логічних виразів, то використовують вкладені розгалуження. Яке службове слово використовується при цьому? *
3.Чи потрібно використовувати відступи при описі блоку команд в алгоритмічній структурі розгалуження? *
4.Яким оператором у мові програмування Python описується цикл із параметром? *
5.Яким оператором у мові програмування Python описується цикл із передумовою? *
6.Що буде результатом виконання даного коду в мові програмування Python? a = 1 if a > 0: print (‘Yes’) else: print (‘No’) *
7.Що буде результатом виконання даного коду в мові програмування Python? a = 1 b=2 if a<=b: print (a*b) else: print(a/b) *
8.Що буде результатом виконання даного коду в мові програмування Python? a = 1 b = 2 if a + b <= 10: print (a * b + 10) else: print (a + b * 2) *
9.За до якої команди можна перервати виконання команд тіла циклу? *
10.Що буде результатом виконання даного коду в мові програмування Python? a = 20 if a <= 5 * 5: print (a % 10) else: print (a // 10) *
надо это ТЕСТ по информатике

👇
Открыть все ответы
Ответ:
skrydyya
skrydyya
14.06.2022
Первый вариант: если десятичный логарифм от (2x+3).

Var X:real;
Begin
Write('x = ');ReadLn(x);
if x<=-1.5 then WriteLn('Ошибка: Нельзя вычислить логарифм от нуля!')
else if x = 0 then WriteLn('Ошибка: На ноль делить нельзя!')
     else WriteLn('f(',x,') = ',Ln(2*x+3)*4/(Tan(3*x)*Ln(10)))
End.

Второй вариант: если логарифм по основанию (2x+3) от 4.

Var X:real;
Begin
Write('x = ');ReadLn(x);
if x<=-1.5 then WriteLn('Ошибка: Основание логарифма должно быть больше нуля!')
else if x = 0 then WriteLn('Ошибка: На ноль делить нельзя!')
     else WriteLn('f(',x,') = ',Ln(4)/(Tan(3*x)*Ln(2*x+3)))
End.
4,7(60 оценок)
Ответ:
laman2210
laman2210
14.06.2022
Заполнение с клавиатуры:

Var
   A:array[1..10000] of integer;
   i,n:integer;
   S:real;
Begin
Write('n = ');ReadLn(n);
Write('Введите a1..a',n,': ');
S:=0;
For i:= 1 to N do
    Begin
    Read(A[i]);
    if (A[i] mod 4 = 0) then S:=S+A[i];
    End;
WriteLn('S = ',S);
End.

Заполнение случайными числами:

Var
   A:array[1..10000] of integer;
   i,n:integer;
   S:real;
Begin
Randomize;
Write('n = ');
ReadLn(n);
Write('a1..a',n,': ');
S:=0;
For i:= 1 to N do
    Begin
    A[i]:=random(2*N+1)-N;
    Write(A[i],' ');
    if (A[i] mod 4 = 0) then S:=S+A[i];
    End;
WriteLn;
WriteLn('S = ',S);
End.
4,8(67 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ