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

Вчем состоит разница между презентации и страницами книги? а) переход между осуществляется с объектов б) на слайдах кроме текста могут содержаться мультимедийные объекты в) в количестве страниц 2) файлы документов, созданные в среде word имеют расширение: а) .doc б) .exe в) .xls

👇
Ответ:
alecsandrkozevn
alecsandrkozevn
02.02.2022
ответ б так как на книге не может быть музыки и видео фрагментов, это и есть мультимедиа
4,5(68 оценок)
Открыть все ответы
Ответ:
L00KING
L00KING
02.02.2022
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

function IsGood(Self:integer):boolean; extensionmethod;
begin
  (var max,var min,var n):=(0,9,abs(Self));
  while n>0 do begin
    var d:=n mod 10;
    if d>max then max:=d;
    if d<min then min:=d;
    n:=n div 10
    end;
  Result:=max-min<5
end;

function P(name:string):double;
begin
  Result:=ReadElements&<integer>(name).Where(n->n.IsGood).Average
end;
 
begin
  Writeln('Среднее арифметическое равно ',P(ReadlnString('Имя файла:')))
end.

Пример
Имя файла: integers.pas
Среднее арифметическое равно 1.78571428571429
4,8(51 оценок)
Ответ:
GiraAronEchwik
GiraAronEchwik
02.02.2022
Var C:array['a'..'z'] of integer;
    S:string;
    i,Max:integer;
    j:char;
Begin
Read(S);
For i:= 1 to Length(S) do
    C[S[i]]:=C[S[i]]+1;
Max:=C['a'];
For j:= 'b' to 'z' do
    if Max<C[j] then Max:=C[j];
WriteLn(Max)
End.

Var
   A:array[1..10000] of integer;
   i,k,Max:integer;
Begin
ReadLn(i);
For i:= 1 to i do
    Read(A[i]);
k:=0;
Max:=0;
For i:= 1 to i-1 do
    if A[i]>A[i+1] then k:=k+1
    else if k>Max then
            Begin
            Max:=k;
            k:=0;
            End;
if Max=0 then WriteLn(0)
else WriteLn(Max+1)
End.
4,6(40 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ