Как должно выглядеть решение: 1. Полная запись на английском 2. Запись в виде кода Задача 1. Доступ к файлу pas.cpp, находящемуся на сервере com.edu, осуществляется по протоколу ftp. Фрагменты адреса файла закодированы цифрами от 1 до 7. Запишите в ответе последовательность этих цифр, кодирующую адрес указанного файла в сети Интернет. 1) com 2) .edu 3) pas 4) .cpp 5) / 6) :// 7) ftp Задача 2. Доступ к файлу moscow.jpg, находящемуся на сервере city.ru, осуществляется по протоколу http. Фрагменты адреса файла закодированы буквами от А до Ж. Запишите последовательность этих букв, кодирующую адрес указанного файла в сети Интернет. А) .ru Б) http В) / Г) .jpg Д) moscow Е) :// Ж) city Задача 3. На сервере GorodN.ru находится почтовый ящик wait_for_mail. Фрагменты адреса электронной почты закодированы буквами от А до Е. Запишите последовательность букв, кодирующую этот адрес. А) GorodN Б) mail В) for_ Г) .ru Д) wait_ Е) @ Задача 4. Почтовый ящик teacher находится на сервере shkola1.mos.ru. В таблице фрагменты адреса электронной почты закодированы цифрами от 1 до 6. Запишите последовательность цифр, кодирующую этот адрес. 1) @ 2) .ru 3) shkola1 4) . 5) teacher 6) mos Как должно выглядеть решение: 1. Запись IP -адреса из цифр. 2. Запись в виде кода из букв. Задача 5. На месте преступления были обнаружены четыре обрывка бумаги. Следствие установило, что на них записаны фрагменты одного IP-адреса. Криминалисты обозначили эти фрагменты буквами А, Б, В и Г: 2.17 16 .65 8.121 А Б В Г Восстановите IP-адрес. В ответе укажите последовательность букв, обозначающих фрагменты, в порядке, соответствующем IP-адресу.
Ответы
n = 3;
var
m: array[1..n] of integer;
i, mn, mx: integer;
begin
Write('Введите через пробел три целых числа: ');
i := 1;
repeat
Read(m[i]);
i := i + 1
until i > n;
mn := m[1];
mx := mn;
i := 2;
repeat
if mx < m[i] then mx := m[i]
else
if mn > m[i] then mn := m[i];
i := i + 1
until i > n;
Writeln('Разность наибольшего с наименьшим равна ', mx - mn)
end.
Тестовое решение:
Введите через пробел три целых числа: 7 9 3
Разность наибольшего с наименьшим равна 6
Объяснение:
1) program abc;
var x,y:real;
begin
readln(x,y);
if (x>0) then begin // проверка по x
if (y>0) then
writeln('1th'); // попадает в первую
if (y<0) then
writeln('4th'); // проверка в четвёртую
end
else begin
if (y>0) then
writeln('2nd'); // попадает во вторую
if (y<0) then
writeln('3th'); // попадает в третью
end;
end.
2)
program abc;
var A:array [1..4] of real; // ввод массива из четырёх чисел
i,max,min:shortint; // i - цикл, max - индекс максимального значения, min - минимального
s:real; // сумма
begin
readln(a[1]); // ввод первого значения
max:=1;
min:=1; // считаем что первое значение и минимум и максимум
for i:=2 to 4 do
begin
readln(A[i]); // ввод массива
if A[i]>a[max] then // Если данный элемент больше максимального
max:=i; // То записываем индекс этого элемента
if A[i]<A[min] then // аналогично с минимумом
min:=i;
end;
s:=A[max]+a[min]; // суммируем и выводим
write(s);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сколько бит составляет сообщение содержащее 0, 125 кбайт
Поясните алгоритм создания многоуровневого списка.
6 класс. Информатика. Разгадайте кроссворд. Буду очень благодарна.
Для каждой пары объектов связывающиее их отношения
Очень завтра уже будет поздно!
задача1 7612534
задача2 БЕЖАВДГ
задача3 ДВБЕАГ
задача4 513462