Выберите правильные утверждения. а) леонардо да винчи создал модель счетной машины. б) блез паскаль жил в xviii веке . в)одними из первых моделей персональных компьютеров были модели без жёсткого магнитного диска. г) в великобритании есть города винчестер, адаптер и дигитайзер.

A,в - правильно. паскаль жил в 17 веке в великобритания есть только город винчестер.

если я правильно понял, то

1. вариант с++

#include < iostream>

int nod(int var1, int var2) //алгоритм евклида

{

    while(var1 ! = var2)

    {

        if(var1 > var2)

            var1 = var1 - var2;

        else var2 = var2 - var1;

    }

    return var1;

}

int nok(int var1, int var2)

{

    return (var1 * var2) / nod(var1, var2);

}

int main()

{

    short int

        a, b, c, d,

        m, n, nk;

    std: : cin > > a > > b > > c > > d;

    nk = nok(b, d); // избегаем не нужных вычислений

    m = a * (nk / b) + c * (nk / d);

    n = nok(b, d);

    std: : cout < < "первая дробь: " < < a < < "/" < < b < < std: : endl;

    std: : cout < < "вторая дробь: " < < c < < "/" < < d < < std: : endl;

    std: : cout < < std: : endl < < "результат: " < < m < < "/" < < n < < std: : endl;

}

2. c

#include < stdio.h>

int nod(int var1, int var2) //алгоритм евклида

{

    while(var1 ! = var2)

    {

        if(var1 > var2)

            var1 = var1 - var2;

        else var2 = var2 - var1;

    }

    return var1;

}

int nok(int var1, int var2)

{

    return (var1 * var2) / nod(var1, var2);

}

int main()

{

    short int

        a, b, c, d,

        m, n, nk;

    scanf("%hi%hi%hi%hi", & a, & b, & c, & d);

    nk = nok(b, d); // избегаем не нужных вычислений

    m = a * (nk / b) + c * (nk / d);

    n = nok(b, d);

    printf("первая дробь: %hi/%d\n", a, b);

    printf("вторая дробь: %hi/%d\n", c, d);

    printf("результат: %hi/%hi\n", m, n);

}

  function dele (s : string) : string;   var    l,i : integer;   begin    l : = length (s);     i : = l;     while i> 0   do      begin      if (s[i] = ' ') and (i< l) then        if s[i+1] = ' ' then        begin          delete (s,i,1);           i : = i -1;         end;       i : = i -1;       end;     result : = s;   end;       var    a : string;   begin  readln (a);   writeln (dele(a));   end.