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

Вывести числа от 1 до 15, используя цикл с параметром. (число для ввода 0)

Показать ответ
Ответ:
Обжора228
Обжора228
02.06.2023 14:58

program Find33;

uses  SysUtils;

const

 L = 100;    // количество чисел, можно изменить на любое значение

var

 i, j, c, cnt: Integer;

 A: array [1..L] of Integer;  // массив для сохранения чисел

 s: string;

begin

 WriteLn ('Массив трехзначных чисел: ');  // вывод на экран сообщения

 Randomize;                               // инициализация датчика случайных чисел

 for i := 1 to L do begin

   A [i] := 100 + Random (900);           // заполняем массив случайными трехзначными числами

   Write (A [i], ' ');                    // выводим их все на дисплей

 end;

 cnt := 0;                                // счетчик чисел с двумя тройками

 WriteLn ('Найдены числа:');

 for i := 1 to L do begin                 // цикл перебора всех элементов массива

   s := IntToStr (A [i]);                 // трехзначное число преобразуем с символьную строку

   c := 0;                                // счетчик троек в числе

   for j := 1 to Length (s) do begin      // цикл перебора всех символов строки

     if s [j] = '3' then begin            // если тройка, то инкремент счетчика троек

       c := c + 1;

     end;

   end;

   if c >= 2 then begin                    // если в числе хотя бы две тройки, то вывод числа и инкремент счетчика чисел

     cnt := cnt + 1;

     WriteLn (A [i]);

   end;

 end;

 WriteLn ('Количество чисел, у которых хотя бы две тройки = ', cnt);  // вывод результата

 ReadLn;                                   // ждать нажатия Enter

end.

Объяснение: комментарии в программе

0,0(0 оценок)
Ответ:
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  Writeln('Количество слов в строке равно ',s.ToWords.Count);
  Writeln('количество цифр в строке равно ',
      s.Where(c->c in ['0'..'9']).Count)
end.

Пример
В России День Победы празднуется 9 мая начиная от 1945 года
Количество слов в строке равно 11
количество цифр в строке равно 5

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