Var a:integer;
begin
read(a);
write((a mod 10)*100+(a div 10 mod 10)*10+a div 100)
<span>end.</span>
1)Вариант:
begin
var ar:=arrrandom(10, -5, 5);
//ar.Println;
end.
2)Вариант:
var
ar: array[1..10]of integer;
begin
for var i := 1 to 10 do ar[i] := random(-5, 5);
//for var i := 1 to 10 do write(ar[i],' ');
end.
1.Текстовые данные
2.Графические данные
3.Звуковые данные
4.Мультимедийные данные
Максимально подробно.
1 символ занимает 8 бит = 1 байт.
1 усл. п. л. занимает 96 Кбайт = 98304 байт = 98304 символов (1 Кбайт = 1024 байта)
4 усл. п.л. будут занимать 393216 символов.
Находим время: 393216 символов / 512 символов в секунду = 768 секунд = 12,8 минуты
Ответ: 12,8 минуты или 12 минут 48 секунд.