По информатике вопросы 1. сколько всего в мире персональных компьютеров? 2. что такое суперэвм? 3. какое электронное вычислительное устройство самое дешевое? 4. сколько пк приходится на одного дителя рф? 5. в каких бытовых приборах имеются вычислительные утройства?

1. всего в мире 1 млрд пк 2. суперэвм -супер электронно вычислительная машина 3.самое дешёвое вычислительное устройство- калькулятор 4.незнаю 5.почти во всех

Сделал на с++, может кто-нибудь переведет или вы поймёте логику программы. в целом вводим число и с простого деления и остатка от деления, выражаем отдельные числа. находим сумму и проверяем условия. #include < iostream> using namespace std; int main(void) {   setlocale(lc_all, "russian");     int num, a1, a2, a3, a4, sum;     cout < < "введите четырехзначное  число: " ;     cin > > num;     a1 = num / 1000;   //делим введенное число на цело,   a2 = (num / 100)%10;   // а потом используем остаток от деления   a3= (num / 10) % 10;   a4 = num % 10;   sum = a1 + a2 + a3 + a4;       if (sum%2==0)       {               cout < < "сумма четная" < < endl ;               if (a1 + a2 == a3 + a4)                         cout < < "да, условие выполняется" < < endl;               else                         cout < < "нет, условие не выполняется" < < endl;       }   else           cout < < "сумма нечётная." < < endl;     system("pause");     return 0; }

1)  на паскале: если число целое, то var a : integer; label transfer; begin readln(a); last : =  a mod 10; n : = 999 for counter = 1 to n do   if ((a div 10) < 10) and ((a div 10) > 0)        begin       first : = a div 10;       goto transfer;   else       a : = a div 10; transfer: if (last mod first = 0) then written('true')                                     else written('false'); readln(); end. если что-то не понятно - в лс или в комменты сюда