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.
Объяснение: комментарии в программе
Внимание! Если программа не работает, обновите версию!
uses GraphABC;
begin
Font.Size:=Trunc(Font.Size*1.5); // размер шрифта 150%
Font.Color:=clBlack; // цвет шрифта
Window.Clear(clWhite); // залить окно цветом
Brush.Color:=clWhite; // фон текста
Font.Name:='Arial'; // имя шрифта
Writeln('Arial font');
Font.Name:='Times'; // имя шрифта
Writeln('Times font');
Font.Name:='Verdana'; // имя шрифта
Writeln('Verdana font');
Font.Name:='Broadway'; // имя шрифта
Writeln('Broadway font');
end.