// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var a:=ArrRandom(30,1,30); a.Println; Writeln('Кол-во чисел на [1;6]: ',a.Where(x->x in [1..6]).Count) end.
У жёсткого диска нет ни максимального, ни минимального объёма - в веке вполне реально было купить жёсткий диск на 40 мегабайт, а сейчас - на 2 и более терабайта. Впрочем, Master Boot Record не поддерживает жёсткие диски размером больше 2 терабайт, а NTFS вроде как не поддерживает разделы жёсткого диска менее 8 мегабайт. CD: 140 МБ (mini-cd), 702 МБ DVD: 4.35 ГБ (DVD5), 18 ГБ (DVD18, то есть двухсторонний двухслойный) флеш-память: опять же нет ни минимума, ни максимума, но где-то между 128 МБ и 128 ГБ. Blu-Ray: 25 ГБ. Впрочем, технология меняется, вроде позже появятся более вместительные.
var a,b,c,d,x,x1,x2:real; begin write ('a='); read (a); write ('b='); read (b); write ('c='); read (c); d:=b*b-4*a*c; if d<0 then writeln ('NO') else if d>0 then begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); writeln ('x1=',x1:0:2,' x2=',x2:0:2) end else begin x:=-b/(2*a); writeln ('x=',x); end end.
begin
var a:=ArrRandom(30,1,30); a.Println;
Writeln('Кол-во чисел на [1;6]: ',a.Where(x->x in [1..6]).Count)
end.
Тестовое решение
26 2 14 24 25 30 1 19 19 12 13 14 21 7 20 8 26 12 14 1 2 30 23 8 9 19 6 16 16 22
Кол-во чисел на [1;6]: 5