Ваш новый знакомый в социальной сети попросил прислать номер впшего телефона и адрес что вы будете делать

С у знакомого по телефону про этот случай, или когда увижу, потому что знакомый явно должен иметь представление где ты живёшь

С у него, для какой цели ему нужен мой номер телефона и домашний адрес, и конечно же я ему не буду сообщать мою личную информацию без видимых на то причин

Я всё вижу по глаза-ам

Что ты хочешь мне сказа-ать

(На-на-на-на, а-а-а)

Я не буду тебя знать, а ты меня

(Ты меня, ты меня, ты меня, ты меня)

И мы друг друга (Ты меня)

Под ногами лёд, и в сердце лёд

В стакане лёд, я не помню кто я

Душит мороз, я такой холодный

Я такой холодный

Я читаю по губам

Мне нечего сказать

(На-на-на-на, а-а-а)

Я не вижу смысла врать (А-а)

Мне хватит слов, что я сказал

(Не вижу смысла врать)

В 7:30 утра автобус врезался в автомобиль марки Suzuki

И какое-то время, буквально тащил его, по ходу движения

Как подтвердили в ГИБДД

Одиннадцатилетняя девочка — пассажирка Suzuki погибла в огне

Где находилась её мама, которая пыталась ребенка

Что же случилось — ещё предстоит выяснить

Следователи сейчас проводят проверк

Объяснение:

Задание 1

program bukva;

const R=[' ','.',',',';',':','?','!','-']; // разделители

var

s,bukv:string;

i,kol,len:integer;

procedure UpCaseRus(var s:string);

{русские в верхний регистр}

var i:integer;

begin

for i:=1 to length(s) do

if s[i] in ['а'..'п'] then s[i]:=chr(ord(s[i])-32)

else if s[i] in ['р'..'я'] then s[i]:=chr(ord(s[i])-80)

else if s[i]='ё' then s[i]:='Ё';

end;

begin

readln(s);

readln(bukv);

UpCaseRus(s);

UpCaseRus(bukv);

For i:=length(s) downto 2 do

if ((s[i] in R) and (s[i-1] in R)) then delete(s,i,1);

len:=length(s);

kol:=0;

for i:=len downto 1 do

begin

if s[i] in R then

if s[i+1]=bukv then kol:=kol+1;

end;

if s[1]=bukv then kol:=kol+1;

writeln('Слов на букву '+bukv+' ',kol);

readln;

end.

Задание 2

const r=[' ','.',',',';',':','?','!','-'];

var

s:string;

i,kol,d:integer;

begin

readln(s);

len:=length(s);

kol:=0;  d:=0;

For i:=length(s) downto 2 do

       if ((s[i] in r) and (s[i-1] in r)) then delete(s,i,1);

for i:=1 to length(s) do

begin

if s[i] in r then kol:=kol+1

else if (s[i] in ['0'..'9']) then d:=d+1;

end;

writeln('Слов всего ',kol+1);

writeln('Цифр  в тексте ',d);

readln;

end.