Что нужно сделать в этом задании?
В ответе я использовал CTIME библиотеку, если возникают вопросы почему именно её, то по нескольким причинам:
- Самое высокая скорость работы по сравнению с C++ библиотеками, а её функционал полнойстью покрывает нужды.
- В данном случаи используются достаточно прозрачные с точки зрения нейминга функции. Код будет хорошо читабилен.
К слову об указателе в функции getSecondsSinceUTCMidnight, не нужно беспокоиться об управлении памятью в данном случаи, за тебя это сделает функционал библиотеки.
Спасибо за отметку лучший ответ.
Если без циклов то
program fifteen;
begin
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
end.
Если циклы уже прошли
program fifteen;
var
i:integer;
begin
for i:=1 to 15 do
writeln('Имя и фамилия');
end.
Var s:string;
begin
readln(s);
if odd(length(s)) then delete(s,length(s) div 2+1,1)
else delete(s,length(s) div 2,2);
writeln(s)
<span>end.</span>
Объем файла = 200*600*1 байт = 200*600*8 бит
2 мин = 120 с
Скорость передачи данных = 200*600*8/120 = 8000 бит/с