program raf105;
var
i,n,a: integer;
begin
write('Введите число: ');
readln(a);
write('Введите количество повторений: ');
readln(n);
for i:=1 to n do
writeln(a);
end.
2.program raf105;
var
sum,i: integer;
begin
for i:=10 to 99 do
if i mod 2 = 0
then sum:= sum+i;
writeln('Сумма всех чётных двузначных чисел: ',sum);
end.
3.program raf105;
var
x,y: real;
begin
x:= -2;
while x <= 2 do
begin
y:= 2*x+3;
writeln(x:4:1,' ',y:4:1);
x:= x+0.2
end;
end.
PascalABC 3.4.2
p := sign(y + 13 * a) * power(abs(y + 13 * a), 1/3);
Объяснение:
Единственная проблема тут - как записать кубический корень. В паскале есть функция power(a, p), которая возводит a в степень p, но если p не целое, оно работает только для положительных (для p > 0 неотрицательных) a. Кубический корень же определён для всех a.
Решение такое: посчитать кубический корень для модуля ![\sqrt[3]{|a|}=|a|^{1/3}](/tpl/images/1497/4036/6aba0.png)
, а потом поставить такой же знак, что и под корнем.
Полностью программа может выглядеть, например, так:
var p, y, a: real;
begin
read(y, a);
p := sign(y + 13 * a) * power(abs(y + 13 * a), 1/3);
write(p)
end.
1,Разрешающая дисплея: 640x480=2^6x10x12x4x10=2^8x5^2x2^4x3=2^12x3x5^2;
Количество используемых цветов 24, а значит цвет одного пикселя кодируется (24~=2^5) 5 битами;
С учетом 3 страниц изображения: 2^12x3^2x5^3 бит = (3^2x5^2)/2 байт ~=562.5 байт
2,512 Кбайт = 512*1024 байт = 512*1024*8 бит
а) При палитре из 8 цветов на один пиксель требуется log(2)8 = 3 бита
Количество страниц экрана = 512*1024*8/(640*200*3) ≈ 10
б) При палитре из 16 цветов на один пиксель требуется log(2)16 = 4 бита
Количество страниц экрана = 512*1024*8/(640*200*4) ≈ 8
в) При палитре из 256 цветов на один пиксель требуется log(2)256 = 8 бит
Количество страниц экрана = 512*1024*8/(640*200*8) ≈ 4
3,Чёрно белая картинка для 1 пикселя использует 1 бит (чёрный или белый) 100*100=10000 пикселей 10000 пикселей * 1 бит = 10000 бит = 1250 байт ответ: Для хранения этого файла необходимо 1250 байт.
4,Чёрно белая картинка для 1 пикселя использует 1 бит (чёрный или белый) 100*100=10000 пикселей 10000 пикселей * 1 бит = 10000 бит = 1250 байт ответ: Для хранения этого файла необходимо 1250 байт.
5,80 * 50 * 200 символов (1 символ = 1 байт) 80 * 50 * 200 байт = 80 * 10 Кбайт = 800 Кбайт
16 = 24 10 * (800 * 600 * 4) бит = 10 * 100 * 2400 байт = 2400 Кбайт для хранения рисунков
2400 + 800 = 3200 Кбайт = 3, 2 Мб
ответ: Всего объем книги 3, 2 Мегабайта
Объяснение: