На обрывках бумаги были обнаружены записанные фрагменты IP-адреса компьютера. Восстановите IP-адрес. (запишите правильный адрес, используя только цифры и точки)3.212 21 2.12 .422)Определите, за сколько секунд будет передан файл размером 10 Кбайт, если скорость передачи данных равна 2048 бит в секунду. (В ответе укажите одно число — количество секунд без единицы измерения)3)Файл размером 48 Кбайт передаётся через некоторое соединение со скоростью 2048 бит в секунду. Определите размер файла (в Кбайт), который можно передать за то же время через другое соединение со скоростью 1024 бита в секунду. (В ответе укажите ТОЛЬКО одно число — размер файла в Кбайт без единиц измерения)
Ответы
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
1)
begin
var a:=ReadString('a->');
Println('Сумма больше ',a.JoinIntoString(' ').ToIntegers.Sum>ReadInteger('k->')?'True':'False');
Println('a четное ',a.ToInteger.IsEven);
end.
Пример:
a-> 123456
k-> 22
Сумма больше False
a четное True
2)
begin
var a:=ReadInteger('a->'); Println('a нечетно',a.IsOdd);
var b:=a.ToString.JoinIntoString(' ').ToIntegers;
Println('Первая равна x',b.First=ReadInteger('x->')?'True':'False');
Println('Последняя равна y',b.Last=ReadInteger('y->')?'True':'False');
end.
Пример:
a-> 456485
a нечетно True
x-> 5
Первая равна x False
y-> 5
Последняя равна y True
//Версия 3.3, сборка 1634 (14.02.2018)
1)
begin
var a:=ReadString('a->');
Println('Сумма больше ',a.JoinIntoString(' ').ToIntegers.Sum>ReadInteger('k->')?'True':'False');
Println('a четное ',a.ToInteger.IsEven);
end.
Пример:
a-> 123456
k-> 22
Сумма больше False
a четное True
2)
begin
var a:=ReadInteger('a->'); Println('a нечетно',a.IsOdd);
var b:=a.ToString.JoinIntoString(' ').ToIntegers;
Println('Первая равна x',b.First=ReadInteger('x->')?'True':'False');
Println('Последняя равна y',b.Last=ReadInteger('y->')?'True':'False');
end.
Пример:
a-> 456485
a нечетно True
x-> 5
Первая равна x False
y-> 5
Последняя равна y True
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Inkscape редакторында қандай құрал-саймандар бар?
Автор: teashop
Запиши развёрнутую запись числа 0, 365 для дробной части числа.
Автор: eshabunina
Номер 4 это очень кр по инфе
Автор: ГазалиеваКозак
Пронумеруй по порядку дии в алгоритми запуску програм за головного меню
Автор: anna241273
Составить программу вычисления среднего арифметического первых 50 чисел много
Автор: Vasilevich Fokin
запрещается работать с неисправным компьютером;
нельзя заниматься очисткой компьютера, когда он находится под напряжением;
недопустимо самостоятельно проводить ремонт оборудования при отсутствии специальных навыков;
нельзя располагать рядом с компьютером жидкости, а также работать с мокрыми руками;
нельзя в процессе работы с ПК прикасаться к другим металлическим конструкциям (например, батареям);
не допускается курение и употребление пищи в непосредственной близости с ПК и др