uses crt;
var
i:integer;
begin
clrscr;
for i:=1 to 25 do writeln ('информатика');
readkey;
end.
А) (x>=0) and (x<=1)
б) (x<0)or(x>1)
в) (x>0)and(y>0)
г) (x>0)or(y>o)
д) (x<=0)and(y<=0)
е) (x>0)and(y<0) or (x<0)and(y>0)
[512, 384, 168]
Глубина цвета = 168 Кбайт / (512 * 384 пикселей) = 168 * 8 * 1024 бит / 196608 пикселей = 1376256 бит / 196608 пикселей = 7.0 бит
Кол-во цветов = 2^7.0 бит = 128.0 цветов
Var a,b:integer;
begin
a:=random(99)+1;
write('Дополните до 100 число ',a,': ');
readln(b);
if b=100-a then writeln('Верно!')
else writeln('Вы ошиблись. 100-',a,'=',100-a);
end.
Пример:
Дополните до 100 число 75: 20
Вы ошиблись. 100-75=25
1)
var
a, b, i: longint;
begin
read(a, b);
for i := a to b do
writeln(i:10, ' бит = ', i / 8 / 1024:10:5, ' Кб');
end.
3)
var
a, b, s: real;
i:integer;
begin
read(a, b);
for i := 1 to 10 do
begin
s := s + b;
b := b * 1.03;
end;
writeln(s - 10 * a);
end.