Используя систему программирования «pascalabc.net» напишите программы к . 1. составить программу, которая вычисляет сумму вклада в банке через n лет, если первоначальный взнос - м рублей, а процентная ставка - 8,5% годовых.2. составить программу, которая находит сумму натуральных
чисел от 1 до n, кратных 5. число n вводится с клавиатуры.3. составить программу, которая находит количество трехзначных натуральных чисел, оканчивающихся на 7.4. составить программу, которая печатает на экране все делители числа n. число nвводится с клавиатуры.5. составить программу,
которая выводит на экран трехзначные числа, в которых первая цифра равна последней.6. составить программу, которая находит значения функции y=x2+2 для х от 3 до 8 с шагом 1.7. составить программу, которая проверяет встречается ли в натуральном
119
335
Ответы на вопрос:
Нахождение нок двух чисел, оформите под вашу var x, y: integer; function nod(x, y: integer): integer; begin if x< > 0 then nod: =nod(y mod x, x) else nod: =y; end; function nok(x, y: integer): integer; begin nok: =(x div nod(x,y))*y; end; begin read(x, y); write(nok(x, y)); end.
Популярно: Информатика
-
Valik12321123.07.2021 05:22
-
Van4more17.01.2020 02:42
-
Ayshalike21.01.2022 13:19
-
iznaur200213.01.2020 06:51
-
lololokgjh16.05.2021 15:51
-
Елис1308.06.2021 01:03
-
Julia2812200203.04.2020 20:29
-
ttyt305.10.2021 15:13
-
666Евгения6930.04.2021 11:13
-
ВаняиМаша16.10.2021 08:43