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

Напишите функцию которая возвращает: наибольшую цифру в десятичном представлении целого числа n> 0; 2)корень уравнения ax+b=0; p.s исправляю

👇
Ответ:
elisaveta272002
elisaveta272002
08.02.2023
1)
function numb(n:integer):integer;
   var
       n,ch,st,max:integer;
   begin
      st:=1;
      max:=-1;
      ch:=n mod 10;
      n:=n div 10;
      while(n>0)do
         begin
             ch:=ch+(n mod 10)*st;
             n:=n div 10;
             st:=st*2;
          end;
       while(ch>0)do
           begin
                if(ch mod 10>max)then
                     max:=ch mod 10;
                ch:=ch div 10;
           end;
       numb:=max;
end;
2)
function yravn(a,b:integer):integer;
   begin
      yravn:=-b div a;
   end;
4,6(65 оценок)
Открыть все ответы
Ответ:
Kurgan4511
Kurgan4511
08.02.2023
Заполнение с клавиатуры:

Var
   A:array[1..5] of integer;
   i,O,P:integer;
Begin
Write('Введите массив A(5): ');
O:=0;
P:=0;
For i:= 1 to 5 do
    Begin
    Read(A[i]);
    if A[i] < 0 then O:=O+1
    else if A[i] > 0 then P:=P+1;
    End;
WriteLn('Количество отрицательных: ',O);
WriteLn('Количество положительных: ',P);
End.

Заполнение случайными числами:

Const
   N = 5;
Var
   A:array[1..N] of integer;
   i,O,P:integer;
Begin
Randomize;
Write('Введите массив A(5):');
O:=0;
P:=0;
For i:= 1 to N do
    Begin
    A[i]:=random(2*N+1)-N;
    Write(' ',A[i]);
    if A[i] < 0 then O:=O+1
    else if A[i] > 0 then P:=P+1;
    End;
WriteLn;
WriteLn('Количество отрицательных: ',O);
WriteLn('Количество положительных: ',P);
End.
4,4(44 оценок)
Ответ:
ArbuzovAndrey
ArbuzovAndrey
08.02.2023

магистральная архитектура как основа современных эвм

современные эвм могут иметь различную архитектуру, но обязательно содержат в своей структуре следующие элементы (арифметико-логическое устройство (алу), выполняющее арифметические и логические операции.  устройство (уу), которое организует процесс выполнения программ. запоминающее устройство (память) для хранения программ и данных. внешние устройства для ввода–вывода информации ( и используют основной принцип функционирования эвм – принцип программируемости, дополненный новыми принципами, к которым можно отнести принципы  модульности, магистральности и микропрограммируемости.

4,4(76 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ