Задание 1:
Var s,i,n : integer;
z: array [1..100] of integer;
Beginfor
i:= 1 to 8 do
Read (z[i]);
end.
Задание 2:
Var s,i,n : integer;
z: array [1..100] of integer;
BeginRead(n);
for i:= 1 to n do
Read (z[i]);
for i:= 1 to n do
begin
if z[i]<0 then s:= sqr(z[i]);
Write(s);
end;
end.
Задание 3:
Var s,i,n : integer;
z: array [1..100] of integer;
Begin
Read(n);
for i:= 1 to n do
Read (z[i]);
s:=0;
for i:= 1 to n do
if z[i]>10 then s:= s+1;
Write('koll=', s);
end.
1.
program chislo;
var s,i:integer;
begin
for i:=3 to 100 do s:=s div 6;
if s mod 6=0 then begin
readln(s)
writeln('Ваш результат: ', s);
<span>end;
</span>end.
2.
program chetno;
var s,i:integer;
begin
for i:=-20 to 1200 do s:=s div 2;
if s mod 2 = 0 then begin
readln(s);
writeln('Ваш результат:', s);
end;
end
Третью не помню :(
Пусть количество страниц равно k. Так как в палитре 16 цветов, то каждая точка несет 4 бита информации (2^4 = 16). V = 256Кб = 262144 байт = 2097152 бит - объем видеопамяти. Пусть S - размер изображения. AxB - разрешающая способность, A * B <= S.
Тогда размер возможного изображения на экране будет вычисляться по формуле: S = V / (k * 4)
k = 1 => S = 524288 бит. Варианты разрешающей способности: 960x520; 640x480; 960x480
k = 2 => S = 262144 бит. Варианты разрешающей способности: 480x480; 320x480; 640x320
k = 4 => S = 131072 бит. Варианты разрешающей способности: 320x320; 240x320; 480x240
Program zadacha;
var a,b,c:integer;
begin
read (a);
b:= a div 10;
c:= a mod 10;
a:= abs(b-c);
write (a);
end.
да могут норазные примеры например волны итд