Есть ответ 👍

Информатика Паскаль бллов дам!​

100
498
Посмотреть ответы 3

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


Объяснение:

program ArrayX;

var

x : array [1..10] of integer;

i, qty : integer;

begin

qty:=0;

for i:= 1 to 10 do begin

x[i] := random(20)-10;

if x[i] > 2 then qty := qty+1;

writeln('x[',i,'] = ',x[i]);

end;

writeln('Qty of x>2 = ',qty);

end.

===================

Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64

Copyright (c) 1993-2012 by Florian Klaempfl and others

Target OS: Linux for x86-64

Compiling main.pas

Linking a.out

18 lines compiled, 0.2 sec

/usr/bin/ld.bfd: warning: link.res contains output sections; did you forget -T?

x[1] = 0

x[2] = 1

x[3] = 4

x[4] = 6

x[5] = 2

x[6] = 7

x[7] = 0

x[8] = 6

x[9] = -2

x[10] = 2

Qty of x>2 = 4

...Program finished with exit code 0

Press ENTER to exit console.


PascalABC.NET ₃.₆.₃.₂₅₇₇## ArrRandom(10, -10, 10).Println.Count(x -> x>2).Print

Пример работы:


Информатика Паскаль бллов дам!​

1) а10=252 а2=11111100 решение: 252/2 =126       остаток 0 126/2 =63        остаток 0 63/2  =31          остаток 1 31/2  =15          остаток 1 15/2  =7            остаток 1 7/2=3                остаток 1 3/2 = 1              остаток 1 1/2  =0              остаток 1 записываем ответ снизу вверх: а2=11111100 2) а10=252 а8=374 решение: 252/8 =31          остаток 4 31/8  =3            остаток 7 3/8    =0            остаток 3 записываем ответ снизу вверх: а8=374 3) а10=252 а16=fc f=15  c=12 решение: 252/16 = 15        остаток 12(с) 15/16  = 0            остаток 15(f) записываем ответ снизу вверх: а16=fc  

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

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

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

Caktus Image

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

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

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

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

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

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

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

GTP TOP NEWS