Является ли X простым числом.Pascal ABC.NET

1 ответ

Посмотреть ответы

DevAdmin

1720

Если x - простое, выводим True

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var x:=ReadInteger('x=');
Writeln(Range(2,Round(sqrt(x))).All(i->x mod i<>0))
end.

Тестовое решение:
x= 191
True

Хороший ответ

19 декабря 2022 03:52

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Сравните строки: ' horse '  'mouse' 'horse'  'HORSE' 'horse'[1]  'mouse'[1] Выберите правильный знак отношен... Самостоятельная работа 1 по теме «Основы логики» 3aranne 1. Bbruerus: a） 0v1）♥（yo） b）（1~1）<0）vi C) (1→1) -(0 → 0) d） 0~1）〜1 e） 1x0x1）>1... Задача 4: Петя, Ваня и Леон В известной игре Stawl Brarѕ Пeтe выпал новый персонаж, которого зовут Леон. У Пети и его друга Вани один аккаунт на двоих... Что такое данные ,и где они хранятся... Кем и когда был введён термин гипертекст?...