для этого применяется команда Упорядочить-Преобразовать в кривую или кнопка на панели своств фигур. После этого контур можно произвольно изменять инструментом Форма
Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
1.
а) 512 Мбайт = 512 * 8 Мбит = 4096 Мбит
б) 32 Кбайт = 32 * 8 Кбит = 256 Кбит
2.
а) 32 Мбит = 32 : 8 Мбайт = 4 Мбайт
б) 1024 Кбит = 1024 : 8 Кбайт = 128 Кбайт
3. Все зависит от кодировки. Если 1 символ занимает 1 байт, тогда сообщение будет занимать столько байт, сколько символов в сообщении (буквы, пробелы, точки и любые другие символы) - в данном случае - 20 байт.
Если же 1 символ занимает 2 байта (к примеру в кодировке юникод UTF-16), тогда сообщение будет занимать 40 байт.
4. 4 гигабайта = 4096 Мбайт.
4096 / 2 = 2048 картинок поместится на флешке размером 4 гигабайт
Последний вопрос не понял. Посчитать 2 в 32 степени?
Program pascal;
var s:string; n,i:integer;
begin
writeln('Daite frazu '); readln(s);
writeln('Daite N'); readln(n);
for i:=1 to n do writeln(s);
readln;
end.
this program will show any phrase you will indicate for N times you want
Объяснение:
Видимо, здесь дается объем файла и средняя скорость скачивания, а требуется найти время скачивания.
t = V/v
t = 256 кб / (32 кбит/с) = 256*8 кбит / (32 кбит/с) = 256*8/32 с = 64 с