В) Так как расширение не может быть уникальным,а полное имя файла собственное имя+ расширение.
Program gt;
var s:string;
l:integer;
begin
readln(s);
l:=length(s);
writeln(s[1]);
writeln(s[l],' ',s[l]);
end.
Мой ответ будет верным при условии, что друг попал на сторонний сайт, открыв ссылку из электронного письма.
Такими уловками пользуются мошенники, так как требовать авторизации в почтовом сервисе может только сам почтовый сервис. О подобных случаях мошенничества пользователь предупреждается, например, в Пользовательском соглашении почтового сервиса MailRu (пункт 4.1.3).
Нужно сменить пароль от электронной почты.
Если это невозможно, обратиться к администрации почтового сервиса с подробным описанием произошедшего случая.
<span>(а+b)/c=a/c+b/c</span>
<span>a+b/c+d=a/c+d +b/c+d</span>
Var a,b:integer;
begin
read(a);
b:= a mod 10;
if b=0 then writeln('Ноль') else
if b=1 then writeln('Один') else
if b=2 then writeln('Два') else
if b=3 then writeln('Три') else
if b=4 then writeln('Четыре') else
if b=5 then writeln('Пять') else
if b=6 then writeln('Шесть') else
if b=7 then writeln('Семь') else
if b=8 then writeln('Восемь') else
writeln('Девять');
<span>end.</span>