Положительные простые цифры - 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 в противном случае.