М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ibrashovo
ibrashovo
04.03.2022 10:30 •  Информатика

Написать программу на языке с(си) пусть процедура socr (a,b,p,q) от целых параметров (b≠0) приводит дробь a/b к несократимому виду p/q. описать данную процедуру и использовать её для дроби 1+1/2+1/3++1/20 к несократимому виду c/d.

👇
Ответ:
Polina2050
Polina2050
04.03.2022
#include<stdio.h>
#include<conio.h>

int Socr(long long int a, long long int b, long long int *p, long long int *q)
{
    long long int d;
    int c = 0;
    if (a)
    {
        if((float)a/b<0)
        {
            if(a<0) a=-a;
            if(b<0) b=-b;
            c = 1;
        }
        for(d = (a>b?b:a); (a%d!=0||b%d!=0); d--);
        if (c) *p = -a / d;
        else *p = a / d;
        *q = b / d;
    }
    else
    {
        *p = 0;
        *q = 1;
    }
    return 0;
}

int main(int argc, char *argv[])
{
    long long int a = 1, b, p = 1, q = 1;
    for(b = 2; b < 21; b++)
    {
        printf("%lli/%lli + 1/%d = ",p,q,b);
        Socr(p*b+q,q*b,&p,&q);
        printf("%lli/%lli\n",p,q);
    }
    getch();
}
4,6(95 оценок)
Открыть все ответы
Ответ:
LEHA6712
LEHA6712
04.03.2022
Var InFile, OutFile: text; // Вводной и выводной файлы
Var a,b,c, D, Result : Integer;
Assign(InFile, "C:\kvur.txt");
Assign(OutFile, "C:\korni.txt")
Reset(InFile)
Read(InFile,a)
Read(InFile,b)
Read(InFile, c)
D = sqr(b) + 4*a*c
if D = 0 then
Write("Уравнение не имеет корней")
Else
  Append(OutFile)
  Result:=(-b + sqrt(D)) / 2 * a
  Write(OutFile,Result)
  Write("Корень уравнения")
  WriteLn(Result)
  if (D>0) then
    Result:=(-b - sqrt(D)) / 2 * a
    Write(OutFile, Result)
    Write("Второй корень уравнения")
    Write(Result)
  End;
End.
4,4(98 оценок)
Ответ:
Dantebayo
Dantebayo
04.03.2022
import random
chuslo = [random.randint(0,500) for x in range(1000)]
five = []
for i in chuslo:
if i %5==0:
five.append(i)
five.sort()
five.reverse()
print(five)

[500, 500, 500, 495, 495, 495, 490, 485, 485, 480, 475, 470, 470, 470, 470, 465, 465, 460, 460, 460, 460, 455, 455, 455, 450, 450, 450, 450, 445, 440, 440, 435, 430, 430, 425, 425, 425, 425, 420, 420, 420, 420, 420, 415, 415, 405, 405, 395, 395, 395, 390, 385, 385, 380, 380, 375, 370, 365, 365, 360, 360, 360, 360, 355, 355, 355, 350, 350, 350, 345, 340, 335, 330, 330, 330, 330, 325, 325, 325, 320, 320, 315, 315, 315, 310, 310, 310, 310, 305, 305, 295, 295, 290, 280, 280, 280, 275, 275, 275, 275, 270, 260, 260, 255, 245, 240, 235, 230, 230, 225, 220, 220, 215, 215, 210, 210, 210, 205, 205, 205, 205, 205, 200, 200, 195, 195, 195, 190, 180, 175, 175, 175, 175, 170, 170, 160, 160, 160, 155, 155, 150, 145, 145, 140, 135, 135, 130, 130, 125, 125, 120, 120, 120, 110, 105, 100, 100, 100, 100, 95, 95, 90, 90, 85, 85, 80, 80, 80, 75, 70, 70, 65, 65, 65, 60, 45, 45, 45, 35, 30, 30, 20, 15, 10, 10, 10, 10, 0]
4,8(94 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ