Знайдіть мінімальне число, яке більше за 200 та кратне 17.
Вхідних даних немає.
Вихідні:
n – шукане число (цілого типу)
Var n:word; Begin n:=200; repeat n:=n+1; until n mod 17=0; writeln(n,' '); end. |
204 |
Знайдіть мінімальне число, яке більше за 200 та кратне 17.
Вхідних даних немає.
Вихідні:
n – шукане число (цілого типу)
Var n:word; Begin n:=200; repeat n:=n-1; until n mod 17=0; writeln(n,' '); end. |
187 |
Знайдіть 5 перших чисел, що більші за 200 та кратні 17.
Вхідних даних немає.
Вихідні:
n – шукані числа (цілого типу)
Проміжні:
k – лічильник шуканих чисел (цілого типу)
Var n,k:word; Begin n:=200; k:=0; repeat n:=n+1; If n mod 17=0 then Begin write(n,' '); k:=k+1; end; until k=5; end. |
204 221 238 255 272 |
Знайдіть максимальне з натуральних чисел, що менше за 5000, яке кратне числу 39.
Знайдіть мінімальне з натуральних чисел, що більше за 8000, яке кратне 47.
Знайдіть 15 перших натуральних чисел, що більші за 100 та кратні 19.
Знайдіть 20 перших натуральних чисел, що більші за 500 та кратні 13 або 17.
Знайдіть 10 перших натуральних чисел, що більші за 100, кратні 9 та закінчуються на цифру 7.
Знайдіть 3 найбільших натуральних числа, що менші за 10000 та кратні 218.
Знайдіть 6 найбільших натуральних числа, що менші за 8000, кратні 81 та закінчуються цифрою 3.
Знайдіть суму 5 перших натуральних чисел, що більші за 100 та кратні 123.
Знайдіть добуток 3 перших натуральних чисел, що більші за 50 та кратні 14.
Надрукуйте у рядок 8 перших натуральних чисел, що більші за 200 і кратні 22, та знайдіть їх суму.
Надрукуйте у рядок 4 перших натуральних числа, що більші за 50 і кратні 21, та знайдіть їх добуток.
Надрукуйте у рядок 5 найбільших натуральних числа, що менші за 500 і кратні 43, та знайдіть їх суму.
Надрукуйте у рядок 3 найбільших натуральних числа, що менші за 250, кратні 23, та знайдіть їх добуток.
Надрукуйте у рядок 7 перших натуральних чисел, що більші за 600 і кратні 26, та знайдіть суму тих з них, що закінчуються цифрою 0.
Надрукуйте у рядок 15 перших натуральних числа, що більші за 70 і кратні 17, та знайдіть добуток тих з них, що закінчуються цифрою 5.
Надрукуйте у рядок 8 найбільших натуральних числа, що менші за 5000 і кратні 47, та знайдіть суму тих з них, що закінчуються парною цифрою.
Надрукуйте у рядок 6 найбільших натуральних чисел, що менші за 200 і кратні 15. Знайдіть добуток тих з них, що закінчуються цифрою 0.