Var
a,b,c,d:integer;
begin
writeln('Введите трехзначное число: ');readln(a);
b:= a div 100;
c:= a mod 100 div 10;
d:= a mod 10;
if (b mod 2 = 0)and(c mod 2 = 0)and(d mod 2 = 0)
then writeln('yes')
else writeln('no');
end.
вот ответ .Надеюсь я понятно написала там.
#include "stdio.h"
main()
int N = 10, count = 0, z = 5, i;
int m[N];
double res = 0
for(i = 0, i < N, i++)
if ((m[i] >= -3) && (m[i] <= 3))
{
count++;
res = res + m[i];
}
if (count == 0)
res = 0;
else
res = res / count;
if (res > z)
{
res = 0;
for(i = 0; i < N; i++)
if (m[i] % 2 == 0)
res = res + m[i];
}
else
{
res = 1;
for(i = 0; i < N; i++)
if (m[i] % 2 != 0)
res = res * m[i];
}
printf("Z = %f", res);
}