Так как вы не указали язык на котором вам нужна программа, то приведу на бейсике (basic) как самый вероятно подходящий. Просто скопируйте текст из приложенного файла в редактор кода и скомпилируйте, что бы получить программу.
Файл сохранен в формате WordPad
Задача №1
//Pascal
var i,a,s,k:integer;
begin
s:=0;k:=0;
repeat
readln(a);
if a>12 then begin
k:=k+1;
s:=s+a;
end;
until a=0;
if k<>0 then writeln(s/k)
else writeln('Таких чисел нет');
end.
Задача №2
var
n,p: integer;
begin
p:=1;
readln(n);
while n > 0 do
begin
write(' ', n mod 10);
if n mod 10 < 4 then p:=p * (n mod 10);
n := n div 10
end;
if p<>1 then writeln('Произведение цифр числа ', p)
else writeln('Нет решения');
end.
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
Program prog;
Uses crt;
var n,s: integer;
begin
clrscr;
write('n = ');
readln(n);
repeat
s:=(n mod 10)+s;
n:=n div 10;
until
n=0;
writeln;
writeln('S = ', abs(s));
readln;
end.
1. Ответ: 43 mod 6 = 1
32 div 5 = 6
2. |x + y - x * x/(y * √x - y)|
3.abs(exp(ln(x)*2) + exp(ln(y) * 3)/ (2 * a))
4. b = 75
a = 45