Надо ! 1.составьте программу двух обыкновенных дробей (с клавиатуры должны вводиться их числители и знаменатели ). 2.составьте программу, позволяющую выяснить, есть ли у n два простых делителя. 3.составьте программу, отыскивающую наименьший общий составной делитель натуральных чисел n и m. 4. составте программу, вычесления суммы четырехзначных чисел, в десятичной записи которых есть два нуля.
295
374
Ответы на вопрос:
Вот первая var a1, a2, a3, b1, b2, b3, n : integer; function nod (a, b : integer) : integer; begin if b = 0 then nod : = a else nod : = nod (b, a mod b); end; begin write ('введите первую дробь : '); read (a1, b1); write ('введите вторую дробь : '); read (a2, b2); a3 : = a1 * a2; b3 : = b1 * b2; n : = nod (a3, b3); a3 : = a3 div n; b3 : = b3 div n; write (a3, '/', b3); end.
Популярно: Информатика
-
05Artur1013.03.2022 12:19
-
Besmertnay12301.04.2023 14:53
-
аза0016.04.2020 04:36
-
sladenykaya13613.01.2021 03:51
-
nastyakarina11204.10.2021 18:35
-
Куропаткана666гргрг19.03.2023 23:31
-
nastyalunina2202.08.2021 18:26
-
Eliiiii09930.05.2023 04:10
-
nastya271915.06.2020 01:31
-
arishavip197222.05.2020 09:31