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

PascalABC Написати програми для обчислення таких задач: Задача 1. Озером назустріч один одному рівномірно прямолінійно рухаються два катери. На початок відстань між катерами становить L м. Швидкість руху першого катера дорівнює V1 м/с, другого V2 м/с. Через який час катери зустрінуться? Яку відстань подолає до зустрічі перший катер?

Формули, якими ви будете користуватися при написанні програм: t=L/(V1-V2) L1=V1*t L2=L-L1

Задача 2. У воду масою m1 кг, узяту за температуру t1 С, додали m2 кг гарячої води, що має температуру t2 C. Якою буде температура води? Вважайте, що теплообмін із довкіллям не відбувається.

Формула, якою ви будете користуватися при написанні програм: t=(m2*t2+m1*t1)/(m1+m2)

👇
Открыть все ответы
Ответ:
DenisPaliy
DenisPaliy
01.04.2022

Пользователь знает ключ, или

пароль, который известен только ему. К этой группе можно отнести и идентификацию через смс-уведомления. При вводе имени и пароля пользователя сервер сравнивает введенные данные

с сохраненными данными. В случае полной идентичности введенных данных появляется возможность войти в систему.

Различают два вида паролей – динамические

и постоянные. Постоянные пароли изменяются

только по требованию пользователя, а динамические пароли изменяются по определенным параметрам. Например, если пользователь забудет

пароль, сервер может предложить ему динамический пароль для входа в систему.

Объяснение:

4,7(72 оценок)
Ответ:
ино7
ино7
01.04.2022
Procedure GetAB(x: integer; var a: integer; var b: integer);
begin
    a := 0;
    b := 1;
    while x > 0 do
    begin
        a := a + 1;
        b := b * (x mod 100);
        x := x div 100;
    end;
end;

var
    x, a, b: integer;

begin
    for x := 10000 to 2000000000 do
    begin
        GetAB(x, a, b);
        if (a = 3) and (b = 18) then
            Println(a, b, x);
    end;
end.

выдает такие значения
3 18 10118
3 18 10209
3 18 10306
3 18 10603
3 18 10902
3 18 11801
3 18 20109
3 18 20303
3 18 20901
3 18 30106
3 18 30203
3 18 30302
3 18 30601
3 18 60103
3 18 60301
3 18 90102
3 18 90201
3 18 180101

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