1 - D
2- C
3 - B
4 - A
Если это письмо/файлы получены от неизвестного источника
Ip адрес нужен для идентификации в сети, для адресации данных или связаться с другими компьютерами. Примерно так.
n = float(input('С какой скоростью шли богатыри? '))
r = float(input('Какое расстояние им предстоит преодолеть? '))
print('Время в пути (в минутах): ' + str(r/n))
Var
s: string;
rus, eng, cif: set of char;
i, r, e, c: integer;
begin
rus := ['Ё', 'ё', 'А'..'Я', 'а'..'я'];
eng := ['A'..'Z', 'a'..'z'];
cif := ['0'..'9'];
write('Введите текст: ');
readln(s);
for i := 1 to length(s) do
begin
if s[i] in rus then inc(r);
if s[i] in eng then inc(e);
if s[i] in cif then inc(c)
end;
writeln('Русских букв: ', r);
writeln('Английских букв: ', e);
writeln('Цифр: ', c)
end.