<span>1. *@
2. @~*
3.*~
4.*
5.~
Ответ: 5 различных букв</span>
Простите для меня это сложно
Считаем, что сначала вводится количество студентов, потом список студентов (по одному в строчке), потом фамилия нужного студента
var
ss: string;
s: array [1..100] of string;
n, i, j: integer;
begin
readln(n);
for i := 1 to n do
readln(s[i]);
for i := 1 to n -1 do
for j := 1 to n - 1 do
if s[j] > s[j + 1] then
begin
ss := s[j];
s[j] := s[j + 1];
s[j + 1] := ss;
end;
readln(ss);
j := 0;
for i := 1 to n do
if s[i] = ss then
j := i;
if j = 0 then
writeln('NO')
else
writeln('YES ', j);
end.
Поверено на Паскале АВС
Program PSM;
uses crt;
var
cena, summa:real;
kwo,skid : integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln; writeln;
writeln('+---------------------------------------------------------------+');
writeln('| Приветствуем вас в магазине ТРИЛАЙН! |');
writeln('+---------------------------------------------------------------+');
writeln('| Введите, пожалуйста, необходимую информацию ниже: |');
writeln('+---------------------------------------------------------------+');
write(' Цена товара: '); readln(cena);
write(' Количество единиц товара: '); readln(kwo);
write(' Размер скидки в % (0 - если скидки нет) '); readln(skid);
writeln('+---------------------------------------------------------------+');
writeln('| |');
writeln('| Сумма к оплате: ',cena*kwo*(1-skid/100):10:2,' |');
writeln('| |');
writeln('+---------------------------------------------------------------+');
end.
Это означает очистка экрана
