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

Составить программу на паскале. дан одномерный массив целых чисел из n элементов. найти и вывести номера элементов заканчивающихся цифрой 0.

👇
Ответ:
shurakonstantinova
shurakonstantinova
09.05.2020
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var s:=a.IndexesOf(x->x mod 10=0);
  if s.Count=0 then Writeln('Нет элементов, оканчивающихся на 0')
  else begin
    Write('Номера элементов, оканчивающихся на 0: ');
    s.Select(i->i+1).Println
    end
end.

Примеры
n= 12
-41 46 29 -13 -43 -21 48 43 41 -48 -19 -44
Нет элементов, оканчивающихся на 0

n= 16
37 -48 39 32 -6 21 -48 34 6 12 -10 -15 40 -36 46 26
Номера элементов, оканчивающихся на 0: 11 13
4,6(14 оценок)
Ответ:
sayhun
sayhun
09.05.2020

const n = 10;

var a:array[1..n] of integer;

i:integer;

begin

  for i:=1 to n do readln(a[i]);

  writeln;

  for i:=1 to n do 

  if a[i] mod 10 = 0 then writeln(i);

end.

4,6(39 оценок)
Открыть все ответы
Ответ:
ирмук
ирмук
09.05.2020

1)Монитор,(на счет магнитофона не уверен, сам по себе именно магнитофон никак не является устройством ПК, но если подразумевают пол этим словом динамик ПК, то подходит)

2)Получение

3)Электрический ток

4)Анатомический муляж

5)102 бита

6)48

7)из перечисленных ниже нет верного ответа. 568 в десятичной = 1 000 111 000 в двоичной.

8)АВИБА

9)Представленные ответы неправильны, так как не являются двоичным кодом(присутствуют двойки)+не указано к какой системе счисления принадлежит y (если x - очевидно 16-ти ричная, то y может быть как 16 так и 10

10) И снова нет верного ответа из предложенных, т.к. получится D8

11)800 бит

12) (Ячейки excel где?)

13) Аналогично 12

14)тоже

15)27

16)User-name

17)c*.c*

18)145.92.128.0

19)Верного ответа нет. Правильно: 22

20) 5

Объяснение:

4,6(45 оценок)
Ответ:
drovac
drovac
09.05.2020
--1--
а) 453₁₀ = 111000101₂ = 705₈ = 1С5₁₆
б) 481₁₀ = 111100001₂ = 741₈ = 1E1₁₆
в) 461.25₁₀ = 111001101.01₂ = 715.2₈ = 1CD.4₁₆
г) 667.25₁₀ = 1010011011.01₂ = 1233.2₈ = 29B.4₁₆
д) 305.88₁₀ = 100110001.1110₂ = 461.7024₈ = 131.E147₁₆
--2--
а) 111001010₂ = 458₁₀
б) 1101110001₂ = 881₁₀
в) 1001010100.10001₂ = 596.53125₁₀
г) 111111110.11001₂ = 510.78125₁₀
д) 1634.35₈ = 924.453125₈
е) 6B.A₁₆ = 107.625₁₀
--3--
а) 101110001₂ + 101111001₂ = 1011101010₂
б) 1110001110₂ + 1100110111₂ = 11011000101₂
в) 10000011010.01₂ + 1010010110.01₂ = 11010110000.1₂
г) 1710.2₈ + 773.24₈ = 2703.44₈
д) 3E7.7₁₆ + 32.2₁₆ = 419.9₁₆
--4--
а) Прямой код: 0.1111000010₂ – 0.1110000011₂ = 0.0000111111₂
    Обратный: 0.0000111101₂ – 0.0001111100₂ = 000000000000000.0000111111₂
    Дополнительный: 0.0000111101₂ – 0.0001111100₂ = 000000000000000.0000111111₂
4,5(38 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ