Var x,y: real;
begin
readln(x);
y:=x/(1+((x*x)/5+(x*x*x)));
writeln(y);
end.
К системному программному обеспечению
Программу пришлось немного править, что б заработала
var
k, s: integer;
Dat: array[1..10] of integer;
begin
Dat[1] := 7;
Dat[2] := 9;
Dat[3] := 10;
Dat[4] := 5;
Dat[5] := 6;
Dat[6] := 7;
Dat[7] := 9;
Dat[8] := 8;
Dat[9] := 6;
Dat[10] := 9;
s := 0;
for k := 1 to 10 do
s := s + Dat[k];
writeln(s);
end.
Вывод
76
*Год.exe - неправильное название из за символа *
Новый!_Год.txt - правильное, нет запрещенный символов
Новый-год:exe - неправильно из-за двоеточия, там должна быть точка
Новый год,exe - неправильно из-за запятой, там должна быть точка