PascalABC.NET 3.2:
begin
ArrRandom(20, -100, 100).Println.Sorted.Println;
end.
Пример вывода:
-26 -20 56 33 -94 -76 -29 -72 12 -29 59 -8 17 -65 -34 -6 -64 93 -69 81
-94 -76 -72 -69 -65 -64 -34 -29 -29 -26 -20 -8 -6 12 17 33 56 59 81 93
переведем указанный объем в Мб. Для этого разделим его на 8, на 1024 и еще раз на 1024. Решение запишем в виде степеней числа два:
2^37/2^3*2^10*2^10 (при умножении показатели степеней складываются
2^37/2^23=2^14
задача 3
запишем условие: К=256, I=1024 байт i=?
решение: выразим информационный объем в битах
I=1024*8=8192 бита разделим это число на кол-во символов в тексте
i=8192/256=32 бита
Int main()
{
int mas[],a;
for (int i=0;i<3;i++)
{
cin>>mas[i]
}
for(int i=0;i<3;i++)
{
if(mas[i]>0)
{
a=mas[i];
a*=a;
}
}
2)
if x>0 or z>0 or y>0 then
условие
Var a,b,c,s:real;
begin
write('Счет 1: ');
readln(a);
write('Счет 2: ');
readln(b);
write('Счет 3: ');
readln(c);
s:=((a+b+c)/100)*15;
write('Чаевые ',s)
<span> end.</span>