1)
Program n1;
var a,b,i: integer;
begin
readln(a,b);
for i:=a to b do write(i*5,' ');
end.
2)
Program n2;
var a: real;
i: integer;
begin
readln(a);
for i:=2 to 24 do if i mod 2=0 then write(a*i/10,' ');
end.
var b,p,s,x,a:real;
begin
read(b);
x:=sqrt(sqr(b)/2);
a:=x*2;
writeln('P= ',(b+b+a):2:2);
writeln('S= ', a*x*0.5);
end.
после (b+b+a):2:2 означает округление до 2 знаков после запятой
узнаем количество точек 640*480=307200
1 пиксель 3 байта, вычисляем размер картинки
3*307200=921600 байт.
скорость модема = 921600 делим на время 256
скорость = 921600/256=3600 байт в секунду
Если в палитре 16 м цветов.
1 пиксель кодируется 24 бит или 3 байта, а это и есть параметр нашего изображения. Тут считать нечего.
Ответ: 3600 байт в секунду.
1 задание
101011 + 101001 = 43+41 (перевел в десятичную) =84 в десятичной или 1010100 в десятичной
тоже сделаем с вычитанием
10101111-111111 = 175-63=112 или 1110000
2 задание
переведем все числа в десятичную систему
1010101 = 85
59(16) = 89
130(8) = 88
86(10) = 86 уже в десятичной
Ответ: 1010101, 86(10), 130(8), 59(16)
Задание 3
1. числа 160 не может быть в 4 степени, проверьте может опечатались.
2. 402(6)=146(10) < 400(8)=256(10)
3. 78(16)=120(10) < 167(8)=119(10)
Изначальные переменные s = 1 и p = 1
Цикл for предусматривает действия цифрами i от 0 до 4 включительно.
Действия цикла: s = i - 1 и p = p*(i+1)
И в итоге выводит: "s, p"
Действие 0:
s = -1
p = 1
Действие 1:
s = 0
p = 2
Действие 2:
s = 1
p = 6
Действие 3:
s = 2
p = 24
Действие 4:
s = 3
p = 120
Ответ: 3, 120