дано натуральное число n, 1<= n <= 30000. Напишите программу, которая определяет, является ли сумма цифр этого числа простым числом
pascal
program chislo;
uses crt;
function pr(a:integer):boolean;
var i:integer;
begin
pr:=true;
for i:=2 to a div 2 do
if a mod i = 0 then
pr:=false;
end;
var a:integer; t:integer=0;
BEGIN
clrscr;
read(a);
while a<>0 do
begin
t:=t+(a mod 10);
a:=a div 10;
end;
Writeln(pr(t));
readkey;
END.
Среда разработки? Срок? Сумма ?
..
Цикл от 2 до N
сравнение результата простого и целочисленного деления N на переменную цикла.
Если нужно проверить ВСЕ числа -
алгоритм:
4 вложенных цикла от 1 до 10
суммирование переменных циклов, далее по предыдущему.
...
Остальное - заказывайте платно
на каком языке писать?)) )
----------------------------------------------
[ссылка заблокирована по решению администрации проекта] -книги литература....уроки ассемблер
⇢