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

1. В массиве С из 15 целых элементов из диапазона [-7;7] вывести на экран номера тех элементов, которые находятся перед максимальным элементом. (паскаль)

👇
Ответ:
отличник703
отличник703
01.07.2021

(см. объяснение)

Объяснение:

Запишем программу на языке PascalABC.NET 3.6.3:

##

var c: array of integer := ArrRandom(15,-7,7);

var b: integer := c.Max;

c.Transform((x,i)->((x=b) and (i>0)) ? c.Prepend(c[i-1].Print).ElementAt(i+1) : c[i]);

Задание выполнено!

Комментарий:

В данной программе нет begin и end. В современных версиях паскаль можно обойтись и без них.

4,8(50 оценок)
Открыть все ответы
Ответ:
PascalВыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 uses crt; var s,s1:string;     c:char;     i,j,k:byte; begin writeln('Введите строку'); read(s); s1:=s;{сделаем копию строки, если строка не нужна, то можно и не делать} i:=1; while i<length(s1) do  begin   c:=s1[i];{запомним символ}   k:=0;   for j:=length(s1) downto i+1 do{с конца строки ищем такие же}   if s1[j]=c then{если есть}    begin     k:=1;{фиксируем}     delete(s1,j,1);{удаляем}    end;   if k=1 then delete(s1,i,1){если не один, удаляем}   else i:=i+1;{иначе проверяем следующий}  end; writeln('Символы по 1 разу'); if s1='' then write('Таких символов нет') else write(s1); end.
4,5(23 оценок)
Ответ:
gorbovaekateri
gorbovaekateri
01.07.2021

512 бит = 512/8= 64 байт

1073741824 байт =1073741824/1024=1048576 Кбайт / 1024= 1024 Мбайт

1024 Кбайт = 1024*1024=1048576 байт

4

Дискета 3,5 = 720 Кбайт

СD= 650 Мбайт

DVD= 1,4 Гбайт- 17,08Гбайт

Жесткий диск = до 5 Тбайт (Терабайт)

5

30 Кбайт= 30*1024 = 30720 байт

125 Кбайт  =  125* 1024 =128000 байт

1024 Кбайт = 1024* 1024 = 1048576 байт

71 Кбайт = 71 * 1024 = 72704 байт

13 Гбайт = 13*1024=13312Мбайт=13312*1024=13631488Кбай= 13631488 * 1024 = 13958643712байт

9216 байт = 9216/1024 = 9 Кбайт

32 Гбайт = 32*1024*1024=33554432 Кбайт

769Мбайт = 769*1024 = 787456 Кбайт

512 байт = 512 /1024 = 0,5 Кбайт

70254592 байт = 70254592/1024/1024=67 Мбайт

42 Гбайт = 42*1024= 43008 Мбайт

20482 Кбайт = 20482/1024 = 20Мбайт

2 Гбайт =2*1024=2048 Мбайт 

4,8(79 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ