N=16 цветов
N=2^i;
16=2^4 => i=4 бит на пиксель
k=<span>25×25 = 625 пикселей
I=k*i=</span><span>625*4=2500 бит</span>
* - это все возможные названия и форматы
т. е. *. это все возможные названия файлов, и..
.* - это все возможные форматы файлов (exe, txt, dll...)
Итог *.* - все возможные названия файлов и все возможные форматы.
<em>// PascalABC.NET 3.3, сборка 1561 от 02.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99).ConvertAll(x->real(x/10));
a.Println;
var imax:=a.Select(x->Abs(x)).ToArray.IndexMax;
var ip:=a.FindIndex(x->x>0)+1;
Writeln('Номер максимального по модулю элемента: ',imax+1);
Writeln('Сумма элементов после первого положительного: ',a[ip:].Sum:0:1)
end.
<u>Пример</u>
n= 13
-5.9 2.8 -8.2 4.8 1.2 -7.3 6.7 4 -5.8 6.4 2.4 -9.3 -8.6
Номер максимального по модулю элемента: 12
Сумма элементов после первого положительного: -13.7
Program ZADACHA;
var a,b,c,d,k:integer;
begin
c:=0;
k:=0;
d:=0;
repeat
begin
readln(a);
b:=a;
c:=c+1;
if (a<-3)
then
begin
d:=b+a;
k:=k+1;
end;
end;
until c=8;
writeln(d);//ETO SUMMA
writeln(k);//Eto KOLICHESTVO
readln;
end.
1)
program test;
uses crt;
var
arr:array[1..10] of integer;
i,cou:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('Itput arr[',i,'] ');readln(arr[i]);
if (arr[i]>0) and (arr[i] mod 2 = 0) then cou:=cou+1;
end;
writeln(cou);
end.
2)Тут вообще можно 1 циклом обойтись, но так не надо заворачиваться с перетаскиванием курсора.
program test;
uses crt;
var
arr:array[1..10] of integer;
i:integer;
begin
randomize;
clrscr;
for i:=1 to 10 do
begin
arr[i]:=random(20)+1;
write(arr[i],' ');
end;
writeln;
for i:=1 to 10 do
if (arr[i]>5) and (arr[i]<15) then write(arr[i],' ');
end.
