<em><u>Трассировка вызовов, печатаемых значений и подсчет суммы</u></em>
var
s:integer;
procedure F(n:integer);
begin
Write(' F(',n,') ');
Write(n,' '); s:=s+n;
if n<6 then begin
Write(n); s:=s+n;
F(n+1);
F(n+2);
F(2*n)
end
end;
begin
s:=0;
F(1);
Writeln(#13#10,s)
end.
<em><u>Результат выполнения программы:</u></em>
F(1) 1 1 F(2) 2 2 F(3) 3 3 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8 F(3) 3 3 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(2) 2 2 F(3) 3 3 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8
530
1 все числа однажначные
2 все числа двухзначные
<span>ниже описаны шаги
1- D:\Фото\Соревнования\
2- </span><span>D:\Фото\
3- </span><span>D:\Фото\Тренировки\
4- </span><span>D:\Фото\Тренировки\Баскетбол\.
ответ 4</span>
4. Для хранения цветовой палитры, содержащей 256 цветов, необходимо выделить 8 бит = 1 байт данных ( 2 ^ 8 = 256). Каждый цвет палитры будет кодировать бинарный код, состоящий из 8 разрядов.
Изображение размером 10 на 10 точек состоит из 10 * 10 = 100 пикселей.
Каждый пиксель изображения должен нести информацию о цвете, следовательно, для хранения всей картинки потребуется 8 * 100 = 800 бит = 100 байт.
Ответ: информационный объём изображения 800 бит (100 байт).
Ответ:
Если сумма квадратов двух сторон равна квадрату третьей, то прямоугольный, если больше, то остроугольный, если меньше то тупоугольный. Если все стороны равны равносторонний, если две стороны равны, а третья нет, равнобедренный.
0
