Question

1.На промежутке от 1 до N найти все числа, которые делятся на свою последнюю цифру.
2.Найти все трехзначные числа, которые кратны 7 и сумма цифр которых кратна 7.
3.Дано натуральное число N. Простое ли оно?

Answer 1

Ответ:

PascalABC.NET

#1

begin

 var A := Range(1, ReadInteger('n=')).Where(x -> x mod 10 <> 0);

 A.Where(x-> x mod (x mod 10) = 0).Println;

end.

#2

function NumSum(number:integer):integer;

begin

 NumSum := 0;

 while number > 0 do begin

   NumSum += number mod 10;

   number := number div 10;

 end;

end;

begin

 var A := Range(100, 999);

 A.Where(x -> (x mod 7 = 0) and (NumSum(x) = 7)).Println;

end.

#3

function IsSimple(number:integer):boolean;

begin

 IsSimple := number >= 2;

 for var i := 2 to trunc(sqrt(number)) do if number mod i = 0 then IsSimple := false

end;

begin

 var N := ReadInteger();

 Print(IsSimple(N));

end.