Длина слова - 4 символа.
находим так:
256 =
- количество слов
8 бит - вес одного слова
делим вес целого слова на вес одного символа
8/2=4 символа
var a:array[1..10] of integer;
i:byte;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
writeln(a[i]*2);
end.
# Код на ruby 2.2.3p173
def zadanie(results)
results = results.sort.reverse
return [results[0], results[1]]
end
# Примеры применения
p zadanie([1,2,7,8,6,4,8,8,4,9])
Var n,k,m: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> k:=n; m:=1;
</span><span> while k>0 do
</span><span> begin
</span><span> k:=k div 10;
</span><span> m:=m*10;
</span><span> end;
</span><span> k:=2*m*10+n*10+2;
</span><span> writeln(k);
</span><span>end.
</span>n = 78954
<span>2789542
</span>
<span>
</span>
<h2>Программа написана на PascalABC.NET 3.4.2, сборка 1979 (16.02.2019), но компилироваться должна и на обычном Pascal</h2>
не указано, как именно завершать ввод, поэтому сделал завершение словом exit
<h2>Код</h2>
- program task31784852;
- var
- number, maxLength, maxNumber: integer;
- inputIsTrue: boolean;
- inputString, maxLengthString: string;
- begin
- inputIsTrue := false;
- maxLength := 0;
-
- Writeln('Напишите exit, чтобы завершить ввод и получить результат');
-
- while inputIsTrue = false do
- begin
- Readln(inputString);
- if Length(inputString) = 0 then
- continue;
- if inputString = 'exit' then
- break;
- number := number + 1;
- if Length(inputString) > maxLength then
- begin
- maxLength := Length(inputString);
- maxLengthString := inputString;
- maxNumber := number;
- end;
- end;
- Writeln('Самая длинная строка с номером ', number, ': ', maxLengthString);
- end.
<h2>Проверка</h2>
Напишите exit, чтобы завершить ввод и получить результат
a
aa
aaa
aaaaaalsd
pwpefowpeofkpwef
................
...................
123462048201180301313031
znanija.com/task/31784852
exit
Самая длинная строка с номером 9: znanija.com/task/31784852