1. Вычислите произведение чисел от 1 до 20 с применением функции ФАКТР().
2. Введите данные о возрасте членов Вашей семьи и вычислите средний возраст членов семьи, используя встроенные функции
1. Закончите предложения:
Функция КОРЕНЬ() -
Функция СТЕПЕНЬ()-
Функция ЦЕЛОЕ() –
Функция ЧАСТНОЕ() -

👇

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

Ответ:

ник11073

21.12.2022

функция корень-определяет значение квадратного корня.

функция степень-возводит число в степень

функция целое-округляет число до ближайшего меньшего числа.

функция частное-опредиляет целую часть результата деления с остатком

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

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

Ответ:

dan5259oxnhwz

21.12.2022

Итак, историю Интернета можно разделить на несколько этапов.

1961 – 1970 гᴦ. Разработаны технические принципы компьютерной сети, введен в действие Arpanet.

1971 – 1980 гᴦ. Придуман знак @. Написана первая программа для электронной почты. Осуществлена первая международная связь по электронной почте между Англией и Норвегией. Число узлов Arpanet возросло до нескольких десятков, проложены специальные кабельные линии, соединяющие некоторые узлы, начинает функционировать электронная почта͵ о результатах работ ученые докладывают на международных научных конференциях.

1981 – 1990 гᴦ. Принят протокол TCP/ IP, введена система доменных имен Domain Name System (DNS).

Сформирована сеть Интернет.

1991–2000 гᴦ. Ethernet стал самой распространенной технологией локальной компьютерной сети. Интернет объединил локальные сети и стал средством массовой коммуникации. Произошло сращивание сотовой связи и Интернета. Телетехнологии встроены в глобальную сеть – телемосты, видеоконференции. Услуга Интернет и электронной почты встроена в мобильные телефоны.

4,5(27 оценок)

Ответ:

tanya260516

21.12.2022

//Pascal
var
S: string;
i, Count: byte;
begin
write('Введите строку: '); readln(S);
for i := Length(S) downto 1 do
if ((S[i] = '3') or (S[i] = '6') or (S[i] = '9')) then
begin
Count := Count + 1;
Delete(s,i,1);
end;
writeln('Количество цифр кратных трем = ', Count);
writeln('Строка после удаления = ', S);
end.

//FreePascal/Delphi/PascalABC.NET(v3.3.1590)
{$MODE OBJFPC} //В PascalABC.NET можно убрать
uses SysUtils; //В PascalABC.NET можно убрать
var
S: string;
i, Count: byte;
begin
write('Введите строку: '); readln(S);
for i := Length(S) downto 1 do
try
if StrToInt(S[i]) mod 3 = 0 then
begin
Count := Count + 1;
Delete(s,i,1);
end;
except
end;
writeln('Количество цифр кратных трем = ', Count);
writeln('Строка после удаления = ', S);
end.

Напишите, , программу, подсчитывающюю количество цифр во введенной строке кратные 3. после чего удал