//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write('массив: ');
var a:=ArrRandom(15,-100,100).Println;
write('кол-во элементов <10: ',a.Where(x->x<10).Count);
end.
1)100110012 = 1∙2^7+0∙2^6+0∙2^5+1∙2^4+1∙2^3+0∙2^2+0∙2^1+1∙2^0 = 128+0+0+16+8+0+0+1 = 153
2)372 = 3∙8^2+7∙8^1+2∙8^0 = 192+56+2 = 250
3)372 = 3∙16^2+7∙16^1+2∙16^0 = 768+112+2 = 882
1 круговая
2 диаграмма
3 наглядно
4 таблица
5 схемы , столбчатая
6 иллюстрация
7 текст
лови
Решил)
Easy
var
s:string;
c:integer;
begin
readln(s);
while pos(' ',s)<>0 do
begin
c:=c+1;
delete(s,pos(' ',s),1);
end;
writeln((c+1)*50,' Tenge');
<span>end.</span>