Регистрация Спросить otvet5GPT
маша3019
10.08.2021 06:11
Информатика
Есть ответ 👍

1.дан массив,найти первое трехзначное число в нем. 2. дан массив, найти последнее число принадлежащее интервалу от -10 до 20 и кратное 3. 3. дано натуральное число. определить четная ли его первая цифра. 4. даны три натуральных числа а,в,с. найти нод(а,в)+ нод(в,с)

259
429
Посмотреть ответы 2

Ответы на вопрос:

лиза2698
лиза2698
4,6(84 оценок)
Const   n = 10; var   x: array[1..n] of integer;   i: integer;   flag: boolean; begin   randomize;   write('элементы массива: ');   for i : = 1 to n do   begin       x[i] : = random(10000);       write(x[i]: 5)   end;   i : = 1; flag : = false;   while (i < = n) and (not flag) do   begin       flag : = (x[i] > = 99) and (x[i] < = 1000);       if (not flag) then i : = i + 1   end;   writeln;   if flag then writeln('найден элемент: ', x[i])   else writeln('искомого числа нет') end. тестовое решение: элементы массива:   4136 4921  244 1489 1714 5731 4187 7990 1974  113 найден элемент: 244 const   n = 13; var   x: array[1..n] of integer;   i: integer;   flag: boolean; begin   randomize;   write('элементы массива: ');   for i : = 1 to n do   begin       x[i] : = random(101) - 50;       write(x[i]: 4)   end;   i : = n;   flag : = false;   while (i > 0) and (not flag) do   begin       flag : = (x[i] > = -10) and (x[i] < = 20) and (x[i] mod 3 = 0);       if (not flag) then i : = i - 1   end;   writeln;   if flag then writeln('найден элемент: ', x[i])   else writeln('искомого числа нет') end. тестовое решение: элементы массива:     21 -45 -12    9 -36  42 -49 -48  37  48 -43  26 -34 найден элемент: 9 var   n: longint;   s: string;   k, er: integer; begin   write('введите натуральное число-> '); readln(n);   str(n, s);   val(s[1], k, er);   if (k mod 2 = 0) then writeln('первая цифра числа четная')   else writeln('первая цифра числа нечетная') end. тестовое решение: введите натуральное число-> 36434523 первая цифра числа нечетная function nod(a, b: integer): integer; begin   while a < > b do       if a > b then a : = a - b       else b : = b - a;   nod : = a end; var   a, b, c: integer; begin   write('введите через пробел три целых числа: '); readln(a, b, c);   writeln('нод(a,b)+нод(b,c)=', nod(a, b) + nod(b, c)) end. тестовое решение: введите через пробел три целых числа: 2048 512 4262 нод(a,b)+нод(b,c)=514
Maagistr
Maagistr
4,8(41 оценок)

colors=['зелёный','жёлтый','красный']

oc=['2','3','4','5']

n=input()

if n in colors:

   print('светофор')

elif n in oc:

   print('оценка')

else:

   print('рабочие записи')

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS