В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
наташа979
наташа979
23.05.2020 20:29 •  Информатика

с во сделать в Паскаль АВС- Двумерные массивы
1. Найти минимальный элемент и номер строки и столба, где он находится.
2. Найти максимальный элемент и номер строки и столбца, где он находится.
3. Заменить числа, стоящие на главной диагонали на 1, а остальные на 0.
4. Заменить числа, стоящие на побочной диагонали на 0, а остальные на 1.
5. Найти количество отрицательных чисел во второй строке.

Показать ответ
Ответ:
Вандализм
Вандализм
02.04.2023 20:56

ВСЕ ЗАДАЧИ В ОДНОЙ

var enter,numberDgigits,i,j,cod,k:integer;

     number:string;

     ch:char;

begin

  writeln('введите целое число');

  readln(number);

  for i:=1 to length(number)-1 do

     if number[i]=number[i+1] then

       k:=k+1;

    if k<>0 then begin

  writeln('в записи числа есть две одинаковые цифры стоящие рядом');

  end

  else

  writeln('в записи числа нету двух одинаковых цифр стоящих рядом');

  k:=0;

  for i:=1 to length(number)-1 do begin

     ch:=number[i];

        for j:=1+i to length(number) do

          if ch=number[j] then

             k:=k+1;

  end;

  if k<>0 then begin

  writeln('в записи числа есть одинаковые цифры');

  end

  else

  writeln('в записи числа нету одинаковых цифр');

  val(number,enter,cod);

  if (enter>99) and (enter<1000) then begin

    writeln('число трехзначное')

  end

    else

    writeln('число не трехзначное');

    numberDgigits := 0;

   while enter > 0 do begin

     numberDgigits := numberDgigits + enter mod 10;

     enter := enter div 10;

   end;

   writeln('сумма цифр = ',numberDgigits);

   readln;

end.

0,0(0 оценок)
Ответ:
Сергій2006SSS
Сергій2006SSS
12.12.2020 23:40

Объяснение:

1. Да, цифровые технологии являются частным случаем информационных технологий.

2. Нет, не все информационные технологии являются цифровыми. Например процесс хранения информации путем записи ее с ручки в тетрадь, несомненно является информационной технологией, но не имеет отношения к цифровым технологиям.

3. Да, все цифровые технологии являются информационными, это следует из определения информационных технологий. (Процессы, методы поиска, сбора, хранения, обработки, предоставления, распространения информации и осуществления таких процессов и методов.)

4. Цифровая технология использует цифровое дискретное представление информации, как правило сигналами 1 и 0 (в некоторых случаях еще null), что позволяет широко использовать электронную вычислительную технику для организации информационных процессов.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота