Var
n:longint;
s:string;
k:integer;
begin
Read(n);
Str(n,s); k:=Length(s);
Writeln(Ord(s[k-1])+Ord(s[k-4])-2*Ord('0'))
end.
1. 4*4 - 15 = 1 Кбайт
2. 1790 байт = 17,5 Кбайт; 4*5 - 17,5 = 2,5 Кбайт
3. 4*5 - 20 = 0 Кбайт
Итого: 1+2,5 = 3,5 Кбайт
? - один произвольный символ(обязательно)
*- любая или пустая последовательность символов
?ese*ie.?t* к этой маске подходит A)seseie.ttx, так как во всех остальных случаях не хватает символа к первому вопросу в файле.
Я же уже отвечал тебе:D
смотри фото
Решение..................................................