Напишите программу нахождения произведения 4 чисел? на паскале

👇

Увидеть ответ

Ответ:

7Tamada7

15.05.2021

Program Pr1;

uses crt;

var a,b,c,d,e:integer;

Begin

clrscr;

writeln('Введите 4 числа');

readln(a,b,c,d);

e:=1;

e:=a*b*c*d;

writeln(e);

end.

4,7(98 оценок)

Открыть все ответы

Ответ:

kjhf2225

15.05.2021

"Типовой школьный" Паскаль:

// PascalABC.Net 3.0, сборка 1064
const
k = 100;

var
s, wd: string;
i, j, m, n, pt, step: integer;
Words, WordsSort: array[1..k] of string;
InOrder: boolean;

begin
Write('Введите строку: '); Readln(s);
n := Length(s); pt := 1; m := 0;
repeat
    // Пропускаем все символы до первого непробельного
    while pt <= n do
      if Ord(s[pt]) <= 32 then Inc(pt) else break;
    if pt <= n then begin
      // Выделяем очередное слово
      wd := '';
      while pt <= n do
        if Ord(s[pt]) > 32 then begin wd := wd + s[pt];Inc(pt) end
        else break;
      if wd <> '' then begin Inc(m);Words[m] := wd end
    end
until pt > n;
// Теперь Words содержит все m слов.
// Отсортируем их в массиве WordsSort методом Шелла
for i := 1 to m do WordsSort[i] := Words[i];
step := m div 2;
while step > 0 do begin
    for j := m - step downto 1 do begin
      i := j;
      while i <= m - step do begin
        if WordsSort[i] > WordsSort[i + step] then begin
          wd := WordsSort[i];
          WordsSort[i] := WordsSort[i + 1];
          WordsSort[i + 1] := wd
        end;
        i := i + step
      end
    end;
    step := step div 2
end;
// Осталось поэлементно сравнить оба массива
InOrder := true; i := 1;
while InOrder and (i <= m) do
begin InOrder := (Words[i] = WordsSort[i]); Inc(i) end;
if m = 0 then Writeln('Строка не содержит слов')
else
    if InOrder then Writeln('Cлова упорядочены')
    else Writeln('Cлова не упорядочены')
end.

Тестовое решение:
Введите строку: слово1    слово2    слово3    слово4 слово5
Cлова упорядочены

Введите строку: слово1    слово2    слово4    слово3 слово5
Cлова не упорядочены

"Современный" вариант решения на Паскале:

// PascalABC.Net 3.0, сборка 1064
var
s:string;
begin
Write('Введите строку: '); Readln(s);
var Delim:=Range(0,32).Select(x->Chr(x)).ToArray;
var Words:=s.Split(Delim).Where(x->x<>'');
var WordsSort:=Words.Sorted;
if Words.SequenceEqual(WordsSort) then Writeln('Cлова упорядочены')
else Writeln('Cлова не упорядочены')
end.

Тестовое решение совпадает с вышеприведенным.

4,6(59 оценок)

Ответ:

igor99kz

15.05.2021

Серверы файловых архивов в операционной системе Windows.:

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

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

Менеджеры загрузки файлов. В операционной системе Windows для удобства пользователей многие серверы файловых архивов (freeware.ru, www.freesoft.ru,www.download.ru) имеют Web-интерфейс, что позволяет работать с ними с использованием браузеров. Браузеры являются интегрированными системами для работы с различными информационными ресурсами Интернета и поэтому включают в себя менеджеры загрузки файлов.

Однако для работы с файловыми архивами удобнее использовать специализированные менеджеры загрузки файлов, которые позволяют приостановить загрузку файла после разрыва соединения с сервером, а затем возобновить загрузку с последнего места её прерывания после восстановления связи с Интернетом. В некоторых менеджерах загрузки файлов (например, FlashGet) достигается увеличение скорости загрузки за счет разбиения файла на части и одновременной загрузки всех частей.

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

Адрес файла на сервере файлового архива. Доступ к файлам на серверах файловых архивов возможен как по протоколу HTTP, так и по специальному протоколу передачи файлов FTP (File Transfer Protocol). Протокол FTP позволяет не только загружать файлы с удаленных серверов файловых архивов на локальный компьютер, но и, наоборот, производить передачу файлов с локального компьютера на удаленный сервер.

Адрес файла на сервере файлового архива включает в себя доступа к файлу, имя сервера Интернета, на котором находится файл, и имя файла.

Если в качестве доступа к файлу file.exe, хранящемуся на сервере ftp.microsoft.com/, используется протокол передачи файлов FTP, то адрес файла запишется следующим образом:

ftp://ftp.microsoft.com/file.exe

Репозитарии программ в операционной системе Linux. В операционной системе Linux компоненты самой системы и приложения хранятся в репозитариях в виде «пакетов» (расширение rpm), которые каждый пользователь может скачать и установить в своем варианте системы. То есть каждый пользователь компонует свою операционную систему Linux и ее приложения исходя из своих нужд и предпочтений, используя для этого набор пакетов в репозитариях.

4,4(87 оценок)

Это интересно:

10.01.2022

10 советов, как повзрослеть после совершеннолетия и принять ответственность за свою жизнь...

Кулинария-и-гостеприимство

06.06.2022

Как приготовить конфеты из сахара...

Компьютеры-и-электроника

06.03.2022

Как сбросить пароль учетной записи на Instagram: мастер-класс с шаг за шагом инструкцией...

Компьютеры-и-электроника

11.08.2021