Перефразируем, что бы было понятней:
Первая буква не согласная и последняя буква не гласная
Или
Первая буква гласная и последняя буква согласная
Ищем:
1) первая буква гласная, последняя буква согласная - подходит
2)первая буква согласная, последняя буква согласная - не подходит
3) Первая и последняя гласные - не подходит
4)первая буква согласная, последняя гласная - не подходит
Ответ: 1)Юлиан
1)
var
x1, x2, y : real;
r1, r2 : byte;
begin
writeln('введите:');
write('X1 = ');
readln(x1);
write('X2 = ');
readln(x2);
write('R1 = ');
readln(r1);
write('R2 = ');
readln(r2);
y := Power(10, x1-r2)*(abs(x2-r1)/sin(degToRad(x2)));
writeln('Y = ', y);
end.
2)
var s : real;
begin
for var n := 5 downto 1 do begin
var fac : integer := 1;
for var i := 1 to 2*n do fac *= i;
s += 1/fac;
end;
writeln(s);
end.
3)
var
s, a, eps : real;
n : integer;
begin
write('ввелте точность EPS = ');
readln(eps);
repeat
n += 1;
a := Power(-1, n-1)/sqr(n);
if abs(a) <= eps then s += a;
until abs(a) <= eps;
writeln('S = ', s);
end.
надеюсь нигде в расчетах не накосячил...
Ответ: D
Объяснение: Только на пересечении столбца D со всеми строками (кроме строки D) стоит 0 - значит человекa D никто не знает и только на пересечении строки D со всеми со столбцами (кроме столбца D) находится 0 - значит человекa D никто не знает
Var i,n:integer;
begin
n:=1;
i:=1;
write ('Числа не кратные 2 и 5: ');
while i<=8 do
begin
if (n mod 2 <> 0) and (n mod 5 <> 0) then
begin
write (n,' ');
i:=i+1;
end;
n:=n+1;
end;
end.