Вот,только не REAPIT, а REPEAT
program ex1;
var a,z,l:integer;
begin
randomize;
repeat;
a:=random(11);
z:=z+a;
l:=l+1;
until l=10;
write('ответ:',z);
end.
1024*768*(ln(16777216)/ln(2)) бит = 18874368 бит
18874368 / 8 / 1024 = 2304 кбайт
В 1 гб = 1024Мб *1024=1048576Кб *1024 = 1073741824б * 8 = 8589934592бита
то есть при переходе от Гигабайта к Мегабайту используется множитель 1024. Тоже самое при переходе от мегабайта к килобайту, и от килобайта к байту. В 1 байте 8 бит, поэтому последнее число умножили на 8.
1457664/1024 = 1423,5Кб / 1024 = 1,4Мб
При переходе на повышающие приставки мы делим, а множитель остается тот же
<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