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

Напишите программу, которая вычисляет значение выражения по известной формуле x+y/x+1 - x*y-12/34+x хиу - переменные целого типа, вводятся с клавиатуры (в одной строке два числа)
Программа должна вывести одно число - результат вычисления выражения

👇
Открыть все ответы
Ответ:
SVIATOSLAV3000
SVIATOSLAV3000
11.08.2020

Відповідь:

Мультимедиа одновременное использование различных форм представления информации и ее обработки в едином объекте-контейнере.

Например, в одном объекте-контейнере может содержаться текстовая, аудиальная, графическая и видео информация, а также, возможно интерактивного взаимодействия с ней.

Термин мультимедиа также, зачастую, используется для обозначения носителей информации, позволяющих хранить значительные объемы данных и обеспечивать достаточно быстрый доступ к ним (первыми носителями такого типа были CD — compact disk). В таком случае термин мультимедиа означает, что компьютер может использовать такие носители и предоставлять информацию пользователю через все возможные виды данных, такие как аудио, видео, анимация, изображение и другие в дополнение к традиционным предоставления информации, таким как текст.

Пояснення:

4,5(85 оценок)
Ответ:

Program Premier_liga_2;

var B, Diff: array [1..16] of integer;

   Team: array[1..16] of string;

   I, K, X, Z, P: integer;

   St: string;

begin

 writeln('Введите названия команд и полученные ими очки');

 for I:=1 to 16 do

 begin

   write(I, ' Название: '); readln(Team[I]);

   write('Очки: '); readln(B[I]);

   write('Забитые мячи: '); readln(Z);

   write('Пропущенные мячи: '); readln(P);

   Diff[I]:= Z-P;

 end;

 for K:=1 to 15 do

 for I:=1 to 16-K do

   if (B[i] < B[I+1]) or  

      ((B[i] = B[I+1]) and (Diff[i] < Diff[I+1])) then

   begin

       X:=B[I]; B[I]:=B[I+1]; B[I+1]:=X;

       St:=Team[I]; Team[I]:=Team[I+1];

       Team[I+1]:=St;

   end;

 for I:=1 to 16 do

 begin

   for K:=1 to 18-length(Team[I]) do

     Team[I]:=Team[I]+' ';

   writeln(I:2,' ',Team[I]:18,B[I]:2)

 end;

end.

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