Напишите программу, которая получает на вход число N (100
качестве ответа количество простых чисел от 0 до N, а так же количество чисел, сумма цифр
которых делится на три и не делится на два.
Ответы
begin
var i, count, num, posl: integer;
var n := ReadInteger('Введите N:');
for i := 0 to n do
if (i mod 3 = 0) and (i mod not 2 = 0)
then
count += i;
Inc(num);
Println('Сумма удовлятворяющие условие: ', count);
Println('Колличество чисел', num);
end.
Ответ:
PascalABC.NET
function IsPrime(number:integer):boolean;
begin
if number = 1 then IsPrime := True
else begin
for var i:= 2 to trunc(sqrt(number)) do begin
if number mod i = 0 then IsPrime := False
else IsPrime := True;
end;
end;
end;
begin
var numbers := Range(0, ReadInteger());
numbers.Println;
numbers.Where(p -> IsPrime(p)).count.Println;
numbers.Where(p -> (p mod 3 = 0) and (p mod 2 <> 0)).Count.Println;
end.
Возможно можно сделать ещё проще, но проверять число на простоту я придумал только самостоятельно реализованной функцией, по этому многабукаф