Ответ:
procedure recursiveprime(num:integer);
var
i:integer;
begin
{тупая проверка *числа* на простоту - пытаемся поделить на все числа от 2 до *числа*/2)
i:=2;
while i<(num div 2) and (num mod i <> 0) do inc(i)
if i=num div 2 then println(num,"- простое!');
if num<60 then recursiveprime(num+1);
end;
begin
recursiveprime(4);
end.
Объяснение:
ну как-то так.. паскаля под рукой нет, лет 7 назад последний раз трогал дельфи
рекурсивная процедура которая вызывает саму себя со следующим числом если переданое ему число меньше 60
проверка на простоту - пытаемся поделить на все числа от 2 до половины проверяемого числа и проверяем остатки.
надеюсь мысль понятна
((1&0)v1)&(1v0) = ((0)v1)&(1v0) = (0v1)&(1) = (1)&1 = 1&1 = 1
Число цветов в палитре-N,
Объем графического файла-I,
Количество пикселей-K
Глубина цвета-I
Формулы:
I = K·i
N = 2 в степени i
Команда 1:
Из числа 1 можно выполнить 2 команды, получится:
1) 1+2=3
2) 1*3=3
Команда 2:
C каждым полученным числом выполняем еще по 2 команды:
Первое число: 1) 3+2=5
2) 6*3=18
Второе число: 1) 3+2=5
2) 6*3=18
Команда 3:
У нас получилось 4 числа, проделаем то же самое
Первое число:
1) 5+2=7
2) 5*3=15
Второе число:
1)18+2=20
2)18*3=54
Третье число:
1) 5+2=7
2) 5*3=15
Четвертое число :
1)18+2=20
2)18*3=54
В итоге, у нас получилось 4 различных числа (так как при выполнении со второй командой, числа получались те же самые)
Если символ кодируется одним байтом, то количество символов = 128/1 = 128.
Если символ кодируется двумя байтами, то количество символов = 128/2 = 64.