Недостающее слово - контекстное
Program q193766551;var i, s: Integer;begin s := 0; for i := 2 to 100 do Inc(s, i * Integer(not Odd(i))); WriteLn(s);end.
var a:array[1..15]of integer;
x,i:integer;
begin
i:=1;
while i<16 do begin
readln(x);
if x<0 then a[i]:=x;
inc(i);
end;
for i:=1 to 15 do if a[i]<0 then writeln(i);
end.
В задание должны быть варианты расстановки символов азбуки Морзе, ты их не привёл(-а), так что решить это невозможно.
Ответ:
x = 2; y = -0.5;
x = 10, y = 0.166667;
x = 5; y = 1;
Объяснение:
Вот сама программа, на питоне как я понял
x = 0
y = 0.0
x = input('Введите x = ')
print('y равен ' , 1/(int(x)-4))