из 9 одинаковых монет на вид одна фальшивая.Она тяжелее других.Сколько взвешиваний понадобится на чашечных весах,без гирь,чтобы найти фальшивую монету

краски- стоят 10 рублей, карандаши 4 рубля. Придумай 3 задачи по записям. 10-4 10-(4:2) 10+(4:2) помогите мне пожалуйста!!!

 Даны 4 программы. Опишите своими словами, что они делают.

А)
const N = 30;
var a: array[1..N] of integer;
i: integer;
Begin
for i := 1 to N do a[i] := i;
for i := 1 to N do writeLn(a[i]);
End.

Б)
const N = 30;
var a: array[1..N] of integer;
i: integer;
Begin
for i := 1 to N do
if i mod 2 <> 0 then a[i] := 1
else a[i] := 0;
for i := 1 to N do writeLn(a[i]);
End.

В)
const N = 10;
var a: array[1..N] of integer;
i, k: integer;
Begin
for i := 1 to N do readLn(a[i]);
k := 0;
for i := 1 to N do
if a[i] = 0 then k := k + 1;
writeLn(k);
End.

Г)
const N = 10;
var a: array[1..N] of integer;
i, k, sum: integer;
Begin
for i := 1 to N do readLn(a[i]);
k := 0;
sum := 0;
for i := 1 to N do
if a[i] > 0 then begin
k := k + 1;
sum := sum + a[i];
end;
writeLn(k, sum:5);
End.