ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ ОЧЕНЬ НАДО!

51

ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ ОЧЕНЬ НАДО! 1. Составьте программу двух обыкновенных дробей (с клавиатуры должны вводиться их числители и знаменатели).2. Составьте программу, позволяющую выяснить, есть ли у N два простых делителя.3. Составьте программу, отыскивающую наименьший общий составной делитель натуральных чисел N и M.4. Составте программу, вычесления суммы четырехзначных чисел, в десятичной записи которых есть два нуля.

категория: информатика

ответить

в избранное

81

balamutov

01 августа 2022

Вот первая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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Смотрите также:

Что являеться устройством хранения?

Составить слово из мешка слова логика

Один из самых распространенных носителей информации с давних времен до наших дней. 6 букв, я предполагаю что этобумага

В какой стране изобрели бумагу и древний носитель информации сделанный из кожи животных

Расположите в хронологическом порядке ЭВМ различных поколений: 1) транзисторные ЭВМ2) ламповые ЭВМ3) ЭВМ на базе СБИС4)…

Часы с боем бьют каждый час столько раз, сколько часов показывает часовая стрелка…

Установите соответствие а) Adobe Photoshop b) Corel Draw c) Компас 3D d) Adobe Flash 1) векторный редактор…

Производится двухканальная (стерео) звукозапись с частотой дискретизации 11 кГц и глубиной кодирования…

Написать программу, определяющую сумму натурального ряда чисел от 1 до 25. Цикл while

27400

14822

Английский язык

14216

Биология

7369

720

Экономика

18829

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

466

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...