По информатике 6 ! предложите, в каком формате лучше сохранить графические файлы при разных ситуациях, если вам придется: а) хранить изображение в мобильном телефоне; б) размещать изображение в интернете; в) демонстрировать изображение на некотором устройстве, характеристики которого вам неизвестны; г) распечатывать изображение для выставки; д) тиражировать изображение разного размера. обоснуйте свой выбор в каждом случае
begin
// 1
Println('1)',ArrRandom(10,-20,20).Println.Where(x->x<0).Count);
// 2
var b:=ArrRandomReal(20,-10,10); b.Println;
Println('2)',b.Min+b.Max);
// 3
var c:=ArrRandom(20,-50,50); c.Println;
Println('3)',c.Where(i->i.IsEven).Count,
c.Where(i->i<0).Aggregate(1.0,(p,i)->p*i))
end.
Тестовое решение:
18 2 16 -14 -7 4 17 -2 -10 -7
1) 5
-2.40518030356857 9.37039580166824 -9.61575433593977 4.22255247562311 -0.090912082274869 -0.263467659365137 3.82946007597701 5.07986054526635 2.27932300059093 -9.80178165240296 0.365445125086906 9.8644010815138 -3.84280629169327 -3.11842201888488 6.69959188285265 9.19731859080369 0.582041605646742 -9.96684386393374 8.57817518458617 -5.38901657582681
2) -0.102442782419939
13 22 -13 -44 10 10 35 -48 -16 7 -48 37 -27 35 7 7 -39 44 -26 12
3) 10 577298202624
const
n=10;
type
Sot=record
fam:string;
zp:integer;
end;
begin
var Sotr:=new Sot[n];
Writeln('Вводите фамилию и через пробел зарплату');
for var i:=0 to n-1 do begin
var s:=ReadlnString(i+1+':');
var ms:=s.Split;
(Sotr[i].fam,Sotr[i].zp):=(ms[0],StrToInt(ms[1]));
end;
var r:=Sotr.OrderBy(x->x.zp).First;
WritelnFormat('{0} получает всего лишь {1}',r.fam,r.zp)
end.
Тестовое решение:
Вводите фамилию и через пробел зарплату
1: Иванов 32000
2: Петров 28000
3: Козлов 34000
4: Сидорова 41400
5: Пупкин 30000
6: Кузьмина 36000
7: Васечкин 29700
8: Бененсон 32500
9: Паутова 41000
10: Ромашкин 36400
Петров получает всего лишь 28000