В одной из кодировок каждый символ кодируется 8 битами. Вова написал текст (в нём нет лишних пробелов):
«Заяц, лев, слон, олень, тюлень, носорог, крокодил,
аллигатор – дикие животные».
Затем он вычеркнул из списка название одного из животных. Заодно он вычеркнул ставшие лишними запятые и пробелы – два пробела не должны идти подряд. При этом размер нового предложения в данной кодировке оказался на 5 байт меньше, чем размер исходного предложения. Напишите в ответе вычеркнутое название животного.
ответ: у тебя не правильное .в начале нужно найти максимальное число не оканч.на 3 , а потом вывести макс. число оканчивающееся на 3.ты разберись. но если ты шаришь в икт и просто не знаешь , как задать условие ,то там нужно через целые и кратные (div/mod) в твоем случае будет как-то так
if a mod 10=3 and a> max then max: =a
ну если ты ленивая жо#а то вот:
var a,b,k,max: integer;
begin
writeln('введите количество чисел > > n ');
readln(n);
max: =0;
for k: = 1 to n do;
begin
writeln('введите числа > > a ');
readln(a);
if (a mod 10=3) and (a> max) then max: =a
end;
writeln('самое больше число оканчивающееся на 3 -',max)
end.
в полной правильности я не уверен(т.к у меня нету паскаля),проверь компилятором
type
re=Record
name:string;
res:integer;
end;
Const
n=3;
Var
ar:array[1..n] of re;
i,j,c:integer;
cs:string;
begin;
for i:=1 to n do
begin
write('Введите имя участника №',i,':');
readln(ar[i].name);
write('Введите результат участника №',i,':');
readln(ar[i].res);
end;
for i:=1 to n-1 do
for j:=i to n do
if ar[i].res>ar[j].res then
begin;
c:=ar[i].res;
ar[i].res:=ar[j].res;
ar[j].res:=c;
cs:=ar[i].name;
ar[i].name:=ar[j].name;
ar[j].name:=cs;
end;for i:=1 to n do
writeln(i,' ',ar[i].name,' ',ar[i].res);
end.
Пример ввода:
Двачевская
23
Персунов
22
Хацуне
3
Пример вывода:
1 Хацуне 3
2 Персунов 22
3 Двачевская 23