Если я всё правильно понял, то должно быть так:
var a:integer;
begin
if a mod 2 = 0 then a:=a*a else a:=a*a*a;
write(a);
end.
Ответ:
№2 - ответ 11
Объяснение:
3 - это кол-во клеток сверху и снизу
5 - это кол-во клеток посередине
P=3+5+3=11
x - бронебойных
2x - трассирующих
2x+6 - обычных
Общее количество патронов:
x+2x+2x+6 = 5x+6
log(2)[1/2x/(5x+6)] = log(2)[(5x+6)/2x] = 2
(5x+6)/2x = 2^2
5x+6 = 8x
3x = 6
x = 2
5x+6 = 5*2+6 = 16
Ответ: 16,2
k:=0;
for i:= 1 to 15 do
if (A[i]=10) then k:=k+1;
Ответ в прикрепленном файле