, в информатике не шарю •надо узнать что получится в результате программы при вводе числа

В условии дана рекурсивная функция.
При выполнении, если число равно единице, то выводится 1, иначе выводится сумма 3 и той же функции с меньшим на единицу значением.

Рекурсивно будет вызвана функция 6 раз и 1 раз в конце, следовательно в конце будет выведено 6*3+1 = 19.

ответ: 19

графический файл состоит из 10000 точек.. используется всего два цвета, то есть на кодировку 1 цвета уходит 1 бит информации.. => 10000 бит

var

i: integer;

a: array[1..20] of integer;

function fn(x: integer): integer;

begin

if x mod 10 = 4 then fn: =x div 2

else fn: =x;

end;

begin

for i: =1 to 20 do

readln(a[i]);

for i: =1 to 20 do

begin

a[i]: =fn(a[i]);

writeln(a[i]);

end;

end.