Положительные простые цифры - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Вводятся произвольные целые числа.Вывести в возрастающем порядке те положительные простые из них цифры которых целеком состоят из простых цифр. Паскаль.

Решение задачи: «Положительные простые цифры»

textual
Листинг программы
function IsPrimeDigits(x: integer): boolean;
var
  i: integer;
  s: string;
begin
  result := false;
  s := IntToStr(x);
  for i := 1 to length(s) do
    if s[i] in ['0', '1', '4', '6', '8', '9'] then exit;
  result := true;
end;

Объяснение кода листинга программы

В данном коде на языке Pascal ABC реализована функция, которая проверяет, являются ли все цифры числа простыми. Внутри функции объявлены две переменные: i и s. Переменная i используется для цикла, а переменная s - для хранения строкового представления числа x. Цикл for проходит по каждой цифре числа x. Если текущая цифра является одним из простых чисел ('0', '1', '4', '6', '8', '9'), то цикл прерывается командой exit, и функция возвращает значение false. Если же ни одна из цифр не является простым числом, то функция возвращает значение true. Таким образом, данная функция проверяет, все ли цифры числа являются простыми, и возвращает true, если это так, и false в противном случае.

Оцени полезность:

7   голосов , оценка 3.857 из 5
Похожие ответы