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

Запусти Pascal. Введи программу. program pr_1;
var
x,y,sum, umn: integer;
begin
write ('x=');
readln (x);
write ('y=');
readln (y);
sum:=x+y;
umn:=x*y;
writeln (sum);
writeln (umn);
readln;
end.

Результаты работы внеси в таблицу для заданных x и y.

x
y
sum
umn
38
48

👇
Увидеть ответ
Ответ:
настя20034122003

sum = 86

umn = 1824

Объяснение:

Если по твоей задаче ввести предложенные тобой цифры: x = 38, y = 48, то получится sum=86, umn = 1824

PS. Там идет речь о таблице, значит нужно ввести несколько значений. Ты можешь и без компилятора заполнить эту таблицу. "Sum" это сумма x и y, "Umn" это умножение чисел x и y

4,4(3 оценок)
Открыть все ответы
Ответ:
rndmymail
rndmymail
10.09.2020
1000 = 2^3*1 + 2^2*0 + 2^1*0 + 2^0*0 = 8 + 0 + 0 + 0 = 8
0001 = 2^3*0 + 2^2*0 + 2^1*0 + 2^0*1 = 0 + 0 + 0 + 1 = 1
0110 = 2^3*0 + 2^2*1 + 2^1*1 + 2^0*0 = 0 + 4 + 2 + 0 = 6
0001 = 2^3*0 + 2^2*0 + 2^1*0 + 2^0*1 = 0 + 0 + 0 + 1 = 1
0101 = 2^3*0 + 2^2*1 + 2^1*0 + 2^0*1 = 0 + 4 + 0 + 1 = 5
0100 = 2^3*0 + 2^2*1 + 2^1*0 + 2^0*0 = 0 + 4 + 0 + 0 = 4
1001 = 2^3*1 + 2^2*0 + 2^1*0 + 2^0*1 = 8 + 0 + 0 + 1 = 9

Если это одно большое число, то вот так

1000000101100001010101001001 = 2^27*1 + 2^26*0 + 2^25*0 + 2^24*0 + 2^23*0 + 2^22*0 + 2^21*0 + 2^20*1 + 2^19*0 + 2^18*1 + 2^17*1 + 2^16*0 + 2^15*0 + 2^14*0 + 2^13*0 + 2^12*1 + 2^11*0 + 2^10*1 + 2^9*0 + 2^8*1 + 2^7*0 + 2^6*1 + 2^5*0 + 2^4*0 + 2^3*1 + 2^2*0 + 2^1*0 + 20*1 = 134217728 + 0 + 0 + 0 + 0 + 0 + 0 + 1048576 + 0 + 262144 + 131072 + 0 + 0 + 0 + 0 + 4096 + 0 + 1024 + 0 + 256 + 0 + 64 + 0 + 0 + 8 + 0 + 0 + 1 = 135664969

^ - Возведение в степень
4,7(44 оценок)
Ответ:
nemkovvlad1
nemkovvlad1
10.09.2020
Var
a:array[1..5] of integer;
i,Max,c,n,f:integer;
 procedure ho;
 begin
       if a[i]>Max then
        begin
         Max:=a[i];
         c:=i;
        end;
 end;

 begin
   for i:=1 to 5 do
     begin
       a[i]:= random(15)+2;
       write(a[i],' ');
     end;
     Max:=a[1];
     c:=1;
     for i:=1 to 5 do
      ho;
      writeln;
      writeln('Максимум: ',max);
       f:=c;
                    if f=1 then
                    begin
                     max:=a[2];
                     for i:=2 to 5 do
                      ho;
                      writeln('Вторичный максимум: ',max);                                            exit;
                    end;       
                           if f<5 then
                      begin
                          Max:=a[f+1];
                          for i:=f+1 to 5 do
                          ho;
                          n:=max;
                       end;
                    if f>1 then
                      begin
                          Max:=a[1];
                          c:=f;
                          for i:=1 to c-1 do
                          ho;
                          if max>n then
                          writeln('Вторичный максимумì: ',max);
                          if max<n then
                          writeln('Вторичный максимум: ',n); 
                                               end;
   end.
4,7(18 оценок)
Это интересно:
М
Мир-работы
11.09.2020
Методы эффективной работы в многозадачном режиме...
П
Как стать настоящей тусовщицей: секреты общения и завоевания новых знакомств...
27.06.2021
Как заставить людей в школе считать, что вы русалка?...
О
Как решать кубические уравнения: подробное руководство...
Х
Как разгладить мятую бумагу: простые методы и советы...
К
Как собрать идеальный пляжный обед?...
З
Здоровье
27.09.2022
5 простых советов по уходу за зубными протезами...
17.12.2021
Секреты экономии денег для студентов...
К
Как присоединить разъем коаксиального кабеля...
К
5 легких способов очистить сенсорный экран...
Новые ответы от MOGZ: Информатика
Юлька6488262
Юлька6488262
22.10.2020
Сколькими различных можно надеть на нить семь бусин двух цветов - синего и белого. напечатать возможные варианты....
Акбота000000
Акбота000000
22.03.2020
Почему в современном ПК микросхемы памяти объединяют в модули памяти различного типа?...
aselimsovetova
aselimsovetova
09.05.2020
Задание 3 Наименование товара Единицы измерения Дата изготовления Цена в тенге Конфеты «Рахат» Коробка 10 октября 2015 г. 1 800.00 KZT Печенье «Юбилейное» Килограмм 12 сентября...
polinasmi1
polinasmi1
09.05.2020
Работа с кривыми. Урок 1 Выбери фигуры, к которым применены градиентные заливки. ​...
лолл18
лолл18
14.03.2020
Найти количество положительных элементов массива B(7)​...
Котэ112шк
Котэ112шк
03.10.2021
Вывести на экран первых 20 простых чисел. C++...
Dana1906
Dana1906
27.10.2021
с информатикой for параметр ;= начальное_значение to конечное_значение do оператор 1)цикл с параметром 2)цилиндрический цикл 3)цикл с неизвестной величиной 4) цикл с параметром...
aaahhjbffyji
aaahhjbffyji
27.10.2021
Написать программу на языке C++ (c#) которая вводит целое чило n и массив из n целых чисел и определяет есть ли в массиве число 30....
мафия47
мафия47
14.05.2020
Як отримати посилання на створену візуалізацію для поширення іншим користувачам?...
ViNtIk4312
ViNtIk4312
27.01.2022
Как связаны понятия авторское право и плагиат​...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ