Question

Плиз помогите с информатикой( в башке заело) ( здесь нужно использовать циклы for while или repeat);заранее спасибо) 1)Натуральное число n называется простым если оно делится только на 1 и на само себя.по соглашению 1 не считают простым числом. Проверить является ли n простым числом2)Найдите и выведите на экран все трехзначные числа кратные 3, сумма цифр которых больше суммы цифр частного от деления их на 3

Answer 1

1. var a,i,x,k,y,z,b,c:integer;
begin
writeln ('Введи число');
readln (a);
for i:=2 to a do
if a mod i =0 then k:=k+1;
if k=1 then writeln ('число простое')
else writeln ('Число составное');
readln;
end.

2.var a,i,k,x:integer;
begin
for i:=100 to 999 do
if i mod 3=0 then
begin
a:=i mod 10 + i div 10 mod 10 + i div 100 mod 10;
k:=i div 3;
while k>0 do begin
x:=k mod 10 + x;
k:=k div 10;
end;
if a>x then write (i,' ');
a:=0;
x:=0;
end;
readln;
end.

Answer 2

Конечно, я могу помочь вам с этими задачами! Вот решения, использующие циклы:

1. Проверка на простое число:

pythonCopy code
n = int(input("Введите число n: "))

is_prime = True

if n < 2:
    is_prime = False
else:
    for i in range(2, n):
        if n % i == 0:
            is_prime = False
            break

if is_prime:
    print(n, "является простым числом")
else:
    print(n, "не является простым числом")

2. Поиск трехзначных чисел, удовлетворяющих условию:

pythonCopy code
for num in range(100, 1000):
    if num % 3 == 0:
        digits_sum = sum(int(digit) for digit in str(num))
        quotient = num // 3
        quotient_digits_sum = sum(int(digit) for digit in str(quotient))
        if digits_sum > quotient_digits_sum:
            print(num)

Обратите внимание, что в обоих решениях используется цикл for. Цикл while или repeat можно использовать для этих задач, но цикл for более удобен, так как вам известен диапазон значений, по которому нужно выполнить итерацию (например, все трехзначные числа).