Задача №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.
Это информатика?
высь, гусь, рысь, лось
#include <iostream>
using namespace std;
int main()
{
int n, s1 = 0, s2 = 0, n1 = 0, n2 = 0;
cin >> n;
int a[n];
srand(time(0)); // инициализируем датчик
for(int i=0; i<n; i++)
{
a[i] = rand() % 101;
cout << a[i] << " ";
if(a[i] < 50)
{
n1++;
s1 += a[i];
}
else
{
n2++;
s2 += a[i];
}
}
double m1 = double(s1) / n1;
double m2 = double(s2) / n2;
cout << endl << m1 << " " << m2;
return 0;
}
(a + b - 1.7) / (c + d / (e + f + 0.5))