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

Уточки. как известно, при разработке и отладке программ большую могут оказать игрушечные жёлтые уточки (
, поэтому денис собрал большую коллекцию жёлтых уточек. коллекция уже настолько большая, что денис решил расставить уточек на полки шкафа. сначала он начал ставить на каждую полку по a уточек, но одна уточка оказалась лишней. тогда он заново начал расставлять уточек на полки, ставя на каждую полку по b уточек, но в этом случае ему не хватило одной уточки, чтобы на каждой полке оказалось ровно b уточек. определите минимальное число уточек, которое могло быть в коллекции дениса.
программа получает на вход два целых положительных числа а и b, 2

Показать ответ
Ответ:
Вандализм
Вандализм
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-бота