Var
n, f, x, k, i: integer;
begin
read(n);
read(f);
k := 0;
for i := 2 to n do
begin
read(x);
if x > f then
k := k + 1
end;
write(k)
<span>end.</span>
Program z4;
var mas:array[1..10] of real;
var s:real;
var i:integer;
begin
s:=0;
for i:=1 to 10 do
begin
write('Введите ',i,' число: ');
readln(mas[i]);
s:=s+mas[i];
end;
writeln('Новый массив: ');
for i:=1 to 10 do
begin
mas[i]:=mas[i]/s;
write(mas[i],' ');
end;
end.
Упростим исходное выражение при помощи законов булевой алгебры.
Введем обозначения:
a - п<span>ервая буква согласная;</span>
b - в<span>торая буква согласная;</span>
c - последняя буква согласная.
Тогда:
Переходим к исходной терминологии:
"первая буква согласная" И <span>¬"</span>вторая буква согласная" И "последняя буква согласная"
Заменим отрицание:
"первая буква согласная" И "вторая буква гласная" И "последняя буква согласная"
Теперь мы легко находим имя, удовлетворяющее условию: Максим.
<u><em>Ответ:</em></u> 2) Максим
Program myprg;
var
x,y: integer;
begin
writeln('x=');
read (x);
if (x>=0) then y:=0;
if (x>0) and (x<=1) then y:=x
else y:=sqr(sqr(x));
writeln ('y=',y);
end.